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PLASTIC   CANOPY-A   COMPUTER   PROGRAM   FOR   THE   STRUCTURAL 
ANALYSIS   OF    PROTECTIVE   CANOPIES 

by 

Kenneth  D.  Winters,  1  Gary  R.  Gavan,  2  and  James  C.  Ault3 


ABSTRACT 

This  Bureau  of  Mines  report  presents  a  Fortran  IV  computer  program  for 
the  structural  analysis  of  (1)  protective  canopies  used  in  underground  mines 
to  protect  equipment  operators  from  roof  falls  and  (2)  rollover  protective 
structures  (ROPS)  used  in  surface  mines  to  protect  equipment  operators  during 
vehicle  overturn  accidents.   The  program,  entitled  PLASTIC  CANOPY,  permits 
rapid  and  inexpensive  calculation  of  the  ultimate  strength  and  deformation 
characteristics  of  a  canopy  for  a  variety  of  static  loading  conditions.   The 
structure  is  modeled  as  a  series  of  interconnected  beam  and/or  plate  elements. 
Stresses  in,  and  displacements  of,  each  structural  element  are  computed  and 
printed  out  at  the  yield  strength  of  the  canopy,  at  several  intermediate  load 
levels  between  the  yield  and  ultimate  strength  of  the  canopy,  and  at  the  ulti- 
mate strength  of  the  canopy.   Other  features  of  the  program  include  prediction 
of  buckling  of  a  beam  member  under  combined  axial  compression  loading  and  bend- 
ing, plotting  of  the  input  geometry  of  the  structure,  and  plotting  of  the 
deformed  shape  of  the  loaded  structure.   Program  description,  input  instruc- 
tions, program  listing,  and  four  example  problems  are  included. 

INTRODUCTION 

In  1972  the  Bureau  of  Mines  developed  a  computer  program  for  the  struc- 
tural analysis  of  space-frame  protective  canopies.   Entitled  CANOPY,4  this  pro- 
gram was  developed  to  provide  mines  installing  canopies  on  existing  equipment 
and  manufacturers  redesigning  new  equipment  to  include  canopies  with  a  method 
of  determining  that  the  canopy  strength  is  "substantial,"  as  required  by  the 
Federal  Coal  Mine  Health  and  Safety  Act  of  1969.   The  CANOPY  program  permitted 
the  rapid  calculation  of  the  elastic  strength  of  a  canopy  modeled  as  a  series 
of  interconnected  beam  structural  elements  for  a  variety  of  static  loading 
conditions . 

1Engineer,  Woodward  Associates,  Inc.,  San  Diego,  Calif. 
2Chief  engineer,  Woodward  Associates,  Inc.,  San  Diego,  Calif. 
Supervisory  general  engineer,  Industrial  Hazards  and  Communications, 

Pittsburgh  Mining  and  Safety  Research  Center,  Bureau  of  Mines,  Pittsburgh, 

Pa.;  now  with  Unit  Rig  and  Equipment  Corp.,  Tulsa,  Okla . 
4Sawyer,  S.  G.   CANOPY-A  Computer  Program  for  the  Structural  Analysis  of 

Space-Frame  Protective  Canopies.   BuMines  IC  8546,  1972,  53  pp. 


In  1974  The  Mining  Enforcement  and  Safety  Administration  (MESA)5  estab- 
lished ROPS  performance  requirements  for  equipment  used  in  the  surface  areas 
of  coal  mines.   ROPS  requirements  for  certain  mobile  equipment  used  in  surface 
metal  and  nonmetallic  open  pit  mines,  in  sand,  gravel,  and  crushed  stone  opera- 
tions, and  in  the  surface  areas  of  underground  metal  and  nonmetal  mines 
were  established  by  MESA  in  1977.  A  method  for  computing  the  ultimate  strength 
of  the  ROPS  was  needed  to  meet  the  retrofit  standards  of  the  MESA  requirements 
and  to  provide  an  effective  analytical  tool  for  designers  of  ROPS  on  new 
equipment . 

To  meet  these  needs,  the  CANOPY  program  was  modified  by  Woodward  Associ- 
ates, Inc.,  under  contract  to  the  Bureau  of  Mines.   The  new  program,  entitled 
PLASTIC  CANOPY,  has  five  additional  capabilities:   (1)  A  plate  element, 
(2)  plastic  beam  analysis ,  (3)  plotting  routines,  (4)  buckling  prediction  for 
elastic  beams,  and  (5)  an  improved  solution  routine. 

Most  canopies  used  on  mining  equipment  have  roofs  covered  with  steelplate, 
Some  cabs  and  canopies  are  fabricated  with  plates  as  major  structural  members. 
The  addition  of  the  plate  element  to  the  program  enables  the  analyst  to  model 
these  configurations  more  efficiently  and  accurately.   Membrane  and  bending 
action  of  plates  can  be  analyzed  using  plate  elements  of  triangular  or  quadri- 
lateral shape.   Stresses  are  computed,  and  output  for  both  upper  and  lower  sur- 
faces is  determined  at  the  centroid  of  the  element. 

Plastic  beam  analysis  can  be  performed  using  plastic  hinges  in  standard 
beam  elements.   Plate  elements  may  be  included  in  a  plastic  beam  model  but 
will  remain  elastic.   This  type  of  analysis  is  applicable  to  side  loadings  on 
ROPS,  where  ultimate  load  and  absorbed  energy  are  the  important  structural 
characteristics  to  be  evaluated. 

Plots  of  both  deformed  and  undeformed  geometries  can  be  generated.   They 
are  useful  as  an  input  data  check,  and  for  observing  deformation  patterns. 

The  buckling  routine  can  analyze  a  compression  member  including  moment 
magnification  due  to  axial  load.  A  deflection  curve  computed  for  the  member 
will  diverge  if  the  member  is  unstable  under  the  combined  bending  and  axial 
forces . 

The  last  added  feature  is  a  new  solution  routine,  which  operates  only  on 
nonzero  elements  of  the  global  stiffness  equations  and  manipulates  them  in  a 
blocked  form.   The  blocked  form  enables  the  equations  to  be  solved  while  using 
a  limited  amount  of  core  storage. 

In  summary,  the  computer  program  PLASTIC  CANOPY  provides  a  practical  method 
for  evaluating  the  structural  behavior  of  protective  canopies.   The  program 
can  be  adapted  to  most  computers.   It  is  available  to  the  general  public  by 
writing  to  The  Technology  Transfer  Officer,  Pittsburgh  Mining  and  Safety 
Research  Center,  Bureau  of  Mines,  4800  Forbes  Avenue,  Pittsburgh,  Pa.  15213. 


Now  The  Mine  Safety  and  Health  Administration  (MSHA) 


PROGRAM  ELEMENTS 

The  PLASTIC  CANOPY  program  has  available  beam,  plate,  and  boundary  ele- 
ments for  use  in  constructing  a  computer  model  of  a  structure.   Characteris- 
tics of  these  elements  and  how  they  are  to  be  used  are  discussed  in  the 
following  sections . 

Beam  Element 

A  standard  3-dimensional  beam  element  is  used,  with  3  rotational  and 
3  translational  degrees  of  freedom  at  each  node,  giving  a  total  of  12  degrees 
of  freedom.   The  rotations  correspond  to  a  torsional  moment  (MX)  about  the 
member  axis  and  bending  moments  (MY  and  MZ)  about  the  principal  axes  of  the 
cross  section.   Translational  degrees  of  freedom  correspond  to  an  axial  thrust 
(FX)  and  two  shear  forces  (FY  and  FZ).   The  generalized  forces  corresponding 
to  the  beam  element  degrees  of  freedom  are  shown  in  figure  1. 

Shear  deformations ,  are  included  in  the  formulation  of  the  beam  element 
stiffness  matrix,  to  assure  accurate  deformations  for  short,  deep  beams  where 
shearing  and  bending  deformations  are  of  the  same  order  of  magnitude.   The 
terms  of  the  12-by-12  beam  element  stiffness  matrix  are  shown  in  appendix  A. 

A  local  coordinate  system  is  assigned  to  each  beam  element,  with  the 
origin  at  node  J.   This  right-handed,  orthogonal  coordinate  system  shown  in 
figure  2,  is  defined  as  follows:  \    is  directed  along  the  member  axis, 
through  the  centroid  of  the  cross  section,  from  node  J  to  node  K  (J  less  than  K) ; 


FIGURE  1.  -  Generalized  forces  correspond- 
ing to  beam  element  degrees  of 
freedom. 


Beam  element  I 


FIGURE  2.  -  Local  coordinate  system,  beam 
element  I. 


ZB  lies  in  a  plane  parallel  to  the  Xt  -Zs  plane,  where  subscript  s  denotes 
global  or  structure  coordinates;  Ym    is  perpendicular  to  both  \    and  Zm  .   For 
the  case  where  the  \    axis  parallel  to  the  Ys  axis,  the  Zm  axis  parallel  to 
the  Zs  axis . 

Section  properties  are  computed,  in  local  coordinates  ,  for  all  beam  elements 
with  one  of  the  following  regular  cross-sectional  shapes:   I-beam,  solid  cir- 
cular or  rectangular  shapes,  and  circular  or  rectangular  tubes.  For  irregular 
cross  sections,  properties  must  be  directly  input. 

The  properties  are  computed  in  subroutine  PROP  and  include  cross-sectional 
area  (AX),  torsional  moment  of  inertial  (IX),  bending  moments  of  inertia 
(IX  and  IY) ,  distance  to  extreme  fibers  (ACX,  ACY ,  ACZ),  shape  factor  for 
shear  deformation  (F) ,  and  plastic  bending  modulus  (BM) . 

Internal  Hinge 

A  modification  to  the  standard  beam  element  described  above  is  available 
for  cases  where  a  bending  moment  cannot  be  transmitted  through  a  specific 
joint.   It  is  useful,  for  example,  when  modeling  a  ROPS  mounting  socket  that 
is  pinned  about  one  axis  ,  but  is  located  within  the  structure  rather  than  at 
a  boundary  joint. 

Appropriate  rotational  degrees  of  freedom  can  be  deleted  from  a  beam  ele- 
ment to  simulate  this  condition.   For  example,  if,  in  the  structure  shown  in 
figure  3 ,  bending  moment  about  the  axis  Zs  cannot  be  transmitted  through  node 
2,  the  corresponding  degree  of  freedom  can  be  deleted  from  beam  element  2. 
The  deleted  degree  of  freedom  is  in  the  local,  or  member,  coordinate  system; 
thus  the  rotation  about  \    is  deleted  from  beam  element  2  at  node  2.   Note, 
however,  that  the  global  and  local  axis  for  the  deleted  degree  of  freedom  will 
not  always  be  the  same. 


The  rotational  degree  of  freedom  is  removed  by  static  condensation  of  the 
element  stiffness  matrix;6  this  process  is  explained  in  appendix  B.  After 
condensation,  the  element  stiffness  matrix  will  have  a  row  and  column  of  zeroes 

corresponding  to  the  deleted  degree  of 
freedom.  When  the  structure  equations 
are  solved  for  global  displacements,  a 
rotational  discontinuity  exists  at  the 
point  of  the  internal  hinge. 
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FIGURE  3 
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Rotation  about  Z„, 
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deleted  at  node  2 


Example  structure,  internal 
hinge  at  node  2. 


The  rotation  printed  by  the  pro- 
gram will  be  for  the  part  of  the  struc- 
ture exclusive  of  the  member  with  the 
internal  hinge;  the  discontinuity  will 
be  the  relative  rotation  of  the  member 

6  Cook,  R.  D.   Concepts  and  Applications 
of  Finite  Element  Analysis.   John 
Wiley  &  Sons,  Inc.,  New  York,  1974, 
402  pp. 
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with  the  hinge  to  the  remainder  of 
the  structure.   In  the  example  shown, 
the  Zs  rotation  in  the  printed  out- 
put for  node  2  will  be  rotation  of 
that  node  in  element  1  as  shown  in 
figure  4.   The  rotational  degree  of 
freedom  could  also  have  been  deleted 
from  beam  element  1;  in  that  case 
the  printed  output  would  give  the 
rotation  in  element  2. 

A  rotational  degree  of  freedom 
is  released  in  a  beam  member  by 
designating  the  appropriate  degree 
of  freedom  on  the  beam  element 
designation  card. 

Plate  Element 


FIGURE  4.  -  Rotations  at  internaf  hinge  in  a 
beam  element. 


PIASTIC  CANOPY  has  a  flat  plate 
element7  that  can  model  both  membrane 
and  bending  action.   The  basic  element  is  a  quadrilateral  of  arbitrary  shape, 
shown  in  figure  5.   Interior  node  0  is  located  at  the  average  of  the  coordi- 
nates of  the  exterior  nodes  I,  J,  K,  and  L.   This  node  defines  a  vertex  common 
to  the  four  triangular  subelements  a,  b,  c,  and  d.  A  triangular  element  may 
also  be  defined,  for  which  no  internal  node  is  assigned. 


FIGURE  5.  -  Quadrilateral 
plate  element  and  tri- 
angular subelements. 


FIGURE  6.  -  Membrane  degrees  of  freedom 
for  a  triangular  subelement. 


Clough,  R.  W. ,  and  C.  A.  Felippa.  A  Refined  Quadrilateral  Element  for  Anal- 
ysis of  Plate  Bending.   Proc.  2d  Conf .  on  Matrix  Methods  in  Structural 
mechanics,  Wright  Patterson  AFB ,  Ohio,  1968. 


Each  node  (including  the  interior  node  of  a  quadrilateral)  has  five 
degrees  of  freedom:   Two  inplane  translations  (fig.  6)  define  the  membrane 
action,  and  a  transverse  displacement  w  and  two  rotations  8X  and  9y  (fig.  7) 
define  the  bending  action.   Rotation  about  an  axis  perpendicular  to  the  plate 
surface  at  a  node  is  not  defined  as  a  degree  of  freedom.   Diagonal  stiffness 
terms  for  these  degrees  of  freedom  are  taken  as  1  to  avoid  singularities  in 
the  global  stiffness  matrix.   To  allow  compatibility  with  beam  elements,  a 
plate  element  node  is  assigned  the  full  set  of  six  degrees  of  freedom. 

Within  a  triangular  subelement,  subregions  are  formed  that  are  also 
triangular,  as  shown  in  figure  8.   Stiffness  contributions  are  computed  in 
area  coordinates  for  each  subregion,  and  the  three  subregion  contributions 
are  combined  to  form  a  subelement  stiffness  matrix.  A  quadrilateral  element 
is  formed  by  summing  4  triangular  subelements  and  eliminating  the  5  degrees 
of  freedom  at  the  interior  node  by  static  condensation,  resulting  in  a  4-node , 
20-degrees -of -freedom  element.  A  triangular  element  is  formulated  by  summing 
its  three  subregions;  no  condensation  is  necessary. 

Local  coordinates  are  assigned  to  each  quadrilateral,  as  shown  in  fig- 
ure 9.   The  local  x-axis  passes  through  the  midpoints  of  sides  L-I  and  J-K. 
The  z-axis  is  perpendicular  to  the  line  connecting  the  midpoints  of  sides 
I-J  and  K-L  and  also  to  the  x-axis.   For  a  flat  plate,  the  Z-axis  is  perpen- 
dicular to  the  plate's  surface.   The  y-axis  is  mutually  perpendicular  to  the 
x-  and  z-axes  in  a  right-handed  system;  it  does  not  necessarily  coincide  with 
the  line  between  the  midpoints  of  sides  I-J  and  K-L. 

For  a  triangular  element,  the  local  coordinate  system  is  shown  in  fig- 
ure 10.   The  x-axis  passes  through  node  I  and  the  midpoint  of  J-K,  z  is  per- 
pendicular to  the  element  surface,  and  y  is  perpendicular  to  the  x  and  z  axes. 
The  origin  is  on  the  line  bisecting  sides  I-J  and  K-I. 
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FIGURE  7.  -   Bending  degrees  of  freedom       FIGURE  8.  -  Subregions  of  a  triangular  subelement. 
for  a  triangular  subelement. 
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FIGURE  9.  -   Local  coordinate  system, 
quadrilateral  element. 


FIGURE  10.  -  Local  coordinate 
system,  triangu- 
lar element. 

Membrane   and  bending  stresses   are   computed  and  printed  out   for  each  plate 
element   in  its    local   coordinate   system. 

Displacement  Functions 

The   inplane   translations    for  membrane   action  within  a   triangular  subele- 
ment   are   assumed  to  be   described  by  equation  1: 


u  =  q    +  Cgx  +  C5y 
v   =  C4   +  C5x  +  C6y, 


(1) 


This  displacement  field  gives  constant  strains  within  an  element,  has  inter- 
element  compatibility,  and  will  converge  monotonically  as  the  mesh  size  is 
refined. 

Bending  action  is  described  by  a  third-order  polynomial, 

w  =  C?  +  C8x  +  C9y  +  C^x2  +  Clxxy  +  C^y3  +  C13x3  +  C14xys  +  Cl5y3,   (2) 

where  the  term  for  x^y  is  missing  from  a  complete  third-order  expansion.   This 
allows  the  normal  slope  along  the  exterior  edge  of  a  triangular  subelement  to 
vary  linearly.   The  displacement  w  and  its  first  derivatives  are  continuous 
within  a  triangular  subelement.   Bending  displacements  are  compatible  between 
adjacent  elements.   Clough  and  Felippa  refer  to  the  bending  element  as  the 
LCCT9  element.8 

Beam-Plate  Compatibility 

When  a  beam  element  and  plate  element  have  a  common  node,  there  is  an 
incompatibility  between  the  two  elements.   This  is  due  to  the  fact  that  a  beam 
element  has  six  degrees  of  freedom  per  node,  while  a  plate  element  has  five 
degrees  of  freedom  per  node. 


8Work  cited  in  footnote  7. 


Consider,  for  example,  the  structure  of  figure  11,  where  element  1-2-3-4 
is  a  plate  element  and  1-2,  3-4  are  beam  elements.  At  each  node  the  rotational 
degree  of  freedom  about  the  y-axis  is  defined  in  the  beam  elements ,  but  not  in 
the  plate  element.   The  y-axis  rotation  at  each  node  is  then  defined  by  the 
stiffness  of  the  beam  elements,  with  no  contribution  from  the  plate  element. 
Figure  12  shows  a  possible  displacement  configuration  of  the  example  struc- 
ture, where  9X  is  determined  by  the  stiffness  of  the  beam  element  1-2. 
The  three  translations  and  rotations  about  the  X  and  Z  axes  (in  the  example) 
are  compatible  between  the  beam  and  plate  elements. 

Boundary  Element 

A  boundary  element  provides  a  method  of  fixing  a  structure  in  space.   For 
a  node  point  attached  to  an  exterior  support,  a  boundary  element  is  defined 
for  each  displacement  of  the  affected  node  that  is  to  be  restrained.   It  can 
be  applied  to  some  or  all  of  the  six  degrees  of  freedom  at  the  node,  in  global 
coordinates . 

The  program  applies  a  stiffness  coefficient  of  1  x  1020  to  the  diagonal 
element  of  the  global  stiffness  matrix;  this  is  several  orders  of  magnitude 
greater  than  a  typical  diagonal  element  resulting  from  beam  and/or  plate  stiff- 
ness.  This  element  is  sufficiently  large  to  represent  a  fixed-boundary  condi- 
tion; that  is ,  no  deflection  will  occur  at  a  degree  of  freedom  with  a  boundary 
element  applied. 

Figure  13  shows  boundary  elements  applied  to  the  trans lational  degrees  of 
freedom  at  node  1. 


2' 

Deformed   edge  of  plate; 
must  remain   straight. 

Deformed   centerline 
of   beam  element   1-2. 


FIGURE  11.  -   Example  structure  with  beam 
and  plate  elements. 


FIGURE  12.  -  Displacement  configuration  for 
beam-plate  structure. 
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ANALYSIS  MODES 

The  PLASTIC  CANOPY  program  can  operate 
in  either  a  plastic  or  an  elastic  mode. 
In  the  elastic  mode,  a  structure  made  of 
beam  elements,  plate  elements,  or  a  combi- 
nation of  the  two  is  analyzed  by  the  stiff- 
ness method  of  structural  analysis  , 
yielding  nodal  displacements  for  a  given 
/*>  set  of  loads.   In  the  plastic  mode,  a 

^s£  structure  composed  of  beams  or  beams  and 

plates  is  analyzed  to  its  ultimate  capac- 
ity by  a  series  of  elastic  steps.   The  end 
of  each  step  is  marked  by  the  insertion  of 
"plastic  hinges"  in  the  appropriate 
beam(s)  that  have  yielded,  followed  by 
reformulation  of  the  structural  equations. 
For  a  structure  composed  of  only  plate  ele- 
ments, the  plastic  option  is  not  available. 

Beam  buckling  and  plotting  options  are  available  in  both  elastic  and  plastic 

modes;  in  the  plastic  mode  buckling  computations  are  based  on  the  load  level 

corresponding  to  the  elastic  limit  of  the  structure. 

Elastic  Analysis 

The  stiffness  method  of  structural  analysis  is  used  to  obtain  an  elastic 
solution  of  a  problem.   This  method  is  widely  known  and  extensive  treatments 
are  available  in  several  textbooks.9 


KX  =  KY 

FIGURE  13. 


K, 


1020  lb/in 


Boundary  elements  applied 
to  translational  degrees  of 
freedom. 


The  basic  equation  of   the  method   is 

[K]    {D}    -  {R} 
where     K  =  global   stiffness  matrix, 

D   =  nodal  displacement  vector, 
and  R  =  nodal   load  vector. 


(3) 


[K]  is  computed  from  the  summation  of  all  element  stiffness  contributions, 
and  {r}  is  obtained  from  the  load  input  data;  solution  requires  finding  the 
displacements  [D] . 

PLASTIC  CANOPY  will  proceed  through  the  following  series  of  steps  to 
effect  an  elastic  solution  of  a  structural  analysis  problem: 

1.   Construct  the  computer  model  as  an  assemblage  of  nodal  points  inter- 
connected with  beam  and/or  plate  elements,  fixed  in  space  by  boundary  elements. 


9 Work  cited  in  footnote  6. 
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2.  Assemble  the  overall  structure  stiffness  matrix  [K]  by  combining  the 
contributions  of  all  the  beam,  plate,  and  boundary  elements.   This  matrix 
represents  equilibrium  equations  of  the  six  degrees  of  freedom  at  each  node. 

3.  Apply  a  loading  [R]  to  the  structure;  this  can  be  input  as  nodal 
point  loads  ,  uniform  loads  on  beam  elements ,  or  uniform  pressure  on  plate 
elements . 


{D}. 


4.   Solve  the  global  stiffness  equation  3  to  obtain  the  nodal  displacements 


5.   Using  nodal  displacements,  compute  element  stresses. 


Solution  of  the  equations  in  step  4  uses  Gaussian  elimination  to  invert 
the  positive-definite  symmetric  stiffness  matrix  [K]  of  equation  3.  A  minimum 
number  of  operations  are  performed;  that  is,  there  are  no  operations  with  zero 
elements.   In  the  program,  the  LTDL  decomposition  of  [K]  is  used;  hence  equa- 
tion 3  can  be  written  as 

LTv  =  R,  (4) 

and  v  =  DLu  (u  =  displacements) ,  (5) 

where  the  solution  for  v  in  equation  4  is  obtained  by  a  reduction  of  the  load 
vector;  the  displacement  vector  u  is  when  calculated  by  back  substitution. 

Equations  are  brought  into  high-speed  (core)  storage  in  a  blocked  format, 
requiring  only  a  portion  of  the  total  set  of  global  equations  to  reside  in 
core  at  one  time.   The  size  of  a  block  is  determined  in  the  routine  CAN0FY/V2 
by  the  size  of  the  unlabeled  common  block  C  (xxxx)  and  the  variable  MTOT. 
Block  size  can  be  altered  by  changing  these  two  items. 

A  large  block  size  will  require  a  greater  amount  of  core  storage  but  a 
lesser  amount  of  low-speed  data  manipulation;  a  small  block  size  requires  less 
core  storage  but  more  manipulation  of  low-speed  data,  since  more  blocks  are 
required  to  contain  the  entire  set  of  equilibrium  equations.   The  size  of  a 
block  can  be  adjusted  to  take  advantage  of  accounting  schedules  at  a  partiticu- 
lar  facility — a  large  block  size  can  be  used  if  core  storage  is  inexpensive 
relative  to  low-speed  data  manipulation,  and  a  small  block  size  can  be  used  if 
the  opposite  case  holds.   The  current  block  size,  with  MTOT  =  3,000,  is  1,500 
locations,  MTOT  being  two  times  the  size  of  one  block,  as  is  the  blank  common 
block  C  (3,000). 

No  maximum  allowable  bandwidth  is  imposed  on  the  set  of  equations 
described  by  equation  3.  A  larger  bandwidth  will  mean  more  blocks  are  needed 
to  contain  the  same  number  of  equations ,  but  the  number  of  operations  will 
remain  essentially  the  same.  An  optimally  numbered  structure  will  require 
fewer  blocks  than  a  poorly  numbered  structure,  and  the  difference  in  computing 
time  will  be  due  to  the  extra  manipulation  of  the  low-speed  storage  data. 
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Characteristics  of  the  program  in  the  elastic  mode  that  depend  on  the 
type  of  element(s)  used  in  a  model  are  explained  in  the  following  sections. 

Beam  Elements 

For  a  structure  with  beam  elements  only,  the  magnitude  of  the  input  load 
is  arbitrary,  as  the  program  will  ratio  all  quantities  to  the  level  where  the 
highest  stressed  point  within  the  structure  has  just  begun  to  yield.   The  von 
Mises  effective  stress  is  used  as  the  criterion  for  the  start  of  yield. 
Stresses  are  computed  at  the  endpoints  of  beams  only;  for  a  member  with  a  uni- 
form loading,  a  node  point  located  at  the  middle  of  the  loaded  member  will 
assure  checking  the  stress  where  the  maximum  bending  moment  due  to  the  uniform 
loading  occurs . 

Axial  stress  (SIGAX)  is  computed  by  dividing  the  axial  force  on  a  member 
by  its  cross-sectional  area.   The  maximum  bending  stresses  about  the  YB  and  Z^ 
axes  are  calculated  from  the  expressions  MY*ACY/IY  and  MZ*ACZ/IZ  ,  respectively, 
where  MY  and  MZ  are  bending  moments,  IY  and  IZ  are  moments  of  inertia,  and 
ACY  and  ACZ  are  distances  to  extreme  fibers.   The  two  bending  stress  compo- 
nents are  added  to  give  the  total  bending  stress,  SIGBMX.   SIGBMX  and  SIGAX 
are  added  to  give  SIGMAX,  the  maximum  stress  along  the  \    axis  of  a  member. 

For  solids  and  tubing  that  are  circular,  maximum  torsional  stresses 
(TAUMAX)  are  computed  from  the  expression  MX*ACX/IX,  where  MX  is  the  torsional 
moment,  IX  is  the  torsional  moment  of  inertia,  and  ACX  is  the  outside  radius. 
For  other  types  of  members,  maximum  torsional  stresses  are  approximated.   In 
rectangular  or  square  structural  tubing,  torsional  stresses  are  assumed  to  be 
uniformly  distributed  across  the  thickness  and  are  found  from  the  expression 
MX/2At ,  where  t  is  the  smaller  of  TF  and  TW,  flange  and  web  thicknesses, 
respectively,  and  A  is  the  total  area  enclosed  by  the  tube  cross  section. 
The  expression  CMX/ab3  gives  the  maximum  torsional  stress  in  solid,  rectangu- 
lar shafts,  where  a  is  the  larger  of  B  and  H,  the  width  and  heighth  of  the 
section,  respectively,  b  is  the  smaller  of  B  and  H,  and  C  is  a  function  of 
a  and  b.   The  calculation  of  torsional  stress  in  I-beam  members  is  the  most 
difficult.   For  these  members,  only  pure  torsional  shear  stresses  in  the 
flanges  are  computed  and  are  given  by  MX*TF/IX. 

SIGMAX  and  TAUMAX  on  a  member  end  are  rotated  to  give  the  principal 
stresses  SIGMA1  and  SIGMA2.   SIGMA1  and  SIGMA2  are  used  to  compute  the  effec- 
tive stress  (VMISES)  as  given  by  the  von  Mises  yield  criterion.  When  the 
effective  stress  reaches  the  member's  elastic  strength,  yielding  has  begun. 
After  an  elastic  analysis,  the  ratio  of  effective  stress  to  yield  stress 
(VMISES /ALLOW)  along  with  SIGBMX,  SIGAX,  TAUMAX,  SIGMAX,  SIGMA1,  SIGMA2 ,  and 
VMISES  is  printed  out  at  the  endpoints  of  each  member.   The  ratio  VMISES /ALLOW 
will  be  1.0  for  the  highest  stressed  point  (beam  endpoint)  in  the  structure. 

Plate  Elements 

Structures  modeled  with  plate  elements  only  will  be  solved  for  the 
applied  magnitude  of  loading.   Factoring  to  raise  or  lower  the  load  to  a  yield 
level  is  not  done  as  it  was  for  the  beam  elements. 
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Stresses  are  computed  for  a  state  of  plane  stress  by  the  equation 

E   vE       0        £x 
vE    E       0     <  gy 
0    0   (1  -  v2)GJ 


y  y 


i  - 


x  y 


(6) 


V  Txy  ; 

where  E  =  Young's  modulus, 

G  =  shear  modulus , 

and   v  =  Poisson's  ratio. 

Subscripts  x  and  y  refer  to  element  coordinates  as  previously  defined. 
For  membrane  action,  the  strain  vector  is  computed  as  a  function  of  the 
inplane  translations  of  the  node  points;  for  bending  action,  it  is  computed  as 
a  function  of  the  transverse  displacement  and  rotations  at  the  nodes. 

A  restriction  is  imposed  on  the  use  of  uniform  pressure  loads  applied  to 
plate  elements.   If  a  pressure  is  applied  with  multiple  load  cases,  the  pres- 
sure will  be  identically  applied  on  each  of  the  loadings;  it  cannot  be  applied 
on  one  load  case  and  removed  on  the  next.  However,  to  avoid  this,  the  uniform 
loading  can  be  simulated  by  dividing  the  pressure  equally  among  the  nodes  of 
the  loaded  elements  and  applying  it  as  point  loads. 

Plate  and  Beam  Elements 

When  a  combination  of  elements  is  present,  the  applied  loading  will  be 
ratioed  to  the  point  where  the  highest  stressed  beam  element  has  reached  the 
material  yield  stress.   The  load  at  this  level  may  be  great  enough  to  have 
yielded  some  of  the  plate  elements. 

Stress  computation  for  the  respective  elements  proceeds  as  described  in 
the  above  sections . 

A  warning  is  printed  whenever  the  von  Mises  stress  in  a  plate  exceeds 
36,000  psi;  it  is  printed  immediately  after  the  table  of  plate  element  princi- 
pal stresses.   If  this  warning  is  present,  the  user  should  evaluate  the  results 
closely  to  see  how  the  plastic  behavior  of  the  plate,  not  considered  in  the 
program,  would  alter  predicted  stresses  and  deformations.   Obviously,  for 
plates  with  a  higher  yield  stress,  this  warning  is  not  effective  until  the 
higher  stress  level  is  reached. 

Plastic  Analysis 

A  plastic,  or  limit,  analysis10  of  a  structure  composed  of  beam  or  beam 
and  plate  elements  consists  of  a  sequence  of  elastic  steps,  each  carried  out 
in  a  manner  identical  to  that  described  in  the  prior  section  on  elastic  analysis. 


l0Work  cited  in  footnote  6. 
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At  the  termination  of  each  step,  plastic 
hinges  are  inserted  endpoint(s)  of  a  beam 

element (s)  where  a  yield  criteria  has  been 

satisfied.  Application  of  a  hinge  will 
result  in  the  condensation  (see  appendix  B) 
of  the  three  rotational  degrees  of  freedom 
ai     /  at  the  hinge  point.   The  overall  structure 

_o    /  equations  are  then  reassembled,  with  the 

appropriate  beam  element  stiffnesses  modi- 
fied for  the  applied  hinges.   Hinges  will 
continue  to  be  added  to  the  structure 
until  a  mechanism  forms  and  the  structure 
becomes  unstable  or  a  specified  deflection 


Rotation 


FIGURE  14.  -  Elastic-perfect  plastic    limit  is  reached. 

material  response  curve. 

Plastic  behavior  in  three  dimensions 

is  a  highly  complex  phenomenon  and  is  approximated  in  PLASTIC  CANOPY  by  beam 

elements  capable  of  developing  plastic  hinges  at  one  (or  both)  endpoints(s) 

characterized  by  the  following  assumptions: 

1.  The  behavior  of  a  beam  endpoint  is  either  elastic  or  plastic;  this  is 
shown  in  figure  14,  where  a  hinge  is  inserted  at  point  A  of  the  moment-rotation 
response  curve.   The  behavior  shown  applies  to  bending  moments  about  both  prin- 
cipal axes  and  the  torsional  moment.  All  three  moments  undergo  the  transition 
denoted  by  A  at  the  same  external  load  level. 

2.  The  transition  at  point  A  occurs  when  the  effective  (von  Mises)  stress 
at  a  beam  endpoint  reaches  the  material  yield  stress;  contributions  to  this 
stress  are  from  the  two  bending  moments,  the  torsional  moment  and  axial  force. 
Bending  stresses  are  allowed  to  reach  yield  over  the  entire  cross  section; 
thus  developing  the  fully  plastic  moment  described  in  appendix  C  before  making 
the  transition. 

3.  The  region  of  plastic  behavior  is  restricted  to  beam  endpoints ; 
growth  of  the  yielded  region  upon  further  loading  is  neglected. 

4.  The  torsional  and  bending  moments  at  a  hinge  remain  constant  throughout 
subsequent  load  steps;  axial  stress  is  allowed  to  increase  with  further  loading. 

In  a  plastic  analysis,  the  program  will  proceed  through  a  series  of  steps 
similar  to  those  followed  in  an  elastic  analysis.   The  entire  series  is 
repeated  as  many  times  as  are  required  to  cause  structural  instability  or  meet 
a  user-specified  deflection  limitation.  The  sequence  of  steps  follows: 

1.  Define  the  structure  (nodes,  beams,  plates,  etc.) 

2.  Assemble  the  overall  stiffness  matrix  [K]  as  a  summation  of  all  member 
stiffness  matrices. 
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3.  Applying  a  loading  {R} . 

4.  Solve  the  equation  [K]  {D}  =  [R] ,  obtaining  joint  displacements  {D} . 

5.  Compute  element  stresses. 

6.  Insert  hinge(s)  in  beam  element(s)  with  highest  stress;  if  more  than 
one  beam  element  has  nearly  the  same  stress  level,  several  hinges  will  be 
inserted  simultaneously. 

7.  Check  for  structural  instability  or  deflection  limitation,  and  termin- 
ate run  if  satisfied;  otherwise  repeat  steps  2  through  6. 

Both  methods  of  program  termination  in  step  7  will  yield  the  same  value 
(or  very  nearly  the  same)  for  the  ultimate  load,  but  quite  different  values 
for  the  energy  absorbed.   This  is  shown  in  figure  15,  where  automatic  termina- 
tion will  occur  at  point  A,  but  a  user  input  deflection  limitation  of  DB  will 
cause  termination  to  occur  at  point  B.   The  final  load  P  is  the  same  in  both 
cases,  but  the  absorbed  energy  (area  under  curve)  is  much  greater  in  the  sec- 
ond case.   Thus,  if  a  user  wants  a  realistic  estimate  of  the  absorbed  energy, 
a  deflection  limitation  should  be  applied  to  cause  termination  at  B  rather 
than  at  A. 

The  magnitude  of  the  applied  loads  on  user-prepared  input  cards  is  arbi- 
trary, since  the  program  will  automatically  ratio  all  quantities  to  the  load 
level  where  hinges  form,  or  the  program  terminates.  All  entries  in  the  vector 
{R}  are  uniformly  factored.   If  a  beam  element  has  a  uniformly  distributed 
loading  applied,  and  a  hinge  forms  at  one  of  its  endpoints ,  the  set  of  equiva- 
lent nodal  loads  for  that  member  is  appropriately  modified. 

Plate  Elements 


It  is  possible  to  do  a  plastic 
analysis  of  a  structure  composed  of 
both  beam  and  plate  elements.   How- 
ever, it  is  important  to  realize  that 
the  plate  elements  can  only  represent 
elastic  behavior;  the  only  plastic 
behavior  is  represented  by  the  plastic 
hinges  in  beam  elements.   Thus  in  suc- 
cessive load  increments,  the  plate 
elements  will  continue  to  make  the 
same  contribution  to  the  overall 
structure  stiffness.   If  a  plate  ele- 
ment should  begin  to  yield,  the  plate 
stiffness  will  not  be  properly 
reduced  to  reflect  this  fact. 


-o 
o 


Deflection 


FIGURE  15.  -  Alternate  termination  points  for 
a  plastic  analysis. 
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Plate  stresses  are  printed  after  the  final  step  of  a  plastic  analysis  and 
are  based  on  the  cumulative  displacements  of  all  the  load  steps.  A  warning  is 
printed  if  the  effective  stress  in  any  plate  exceeds  36,000  psi.  If  a  higher- 
yield-strength  plate  is  used,  this  warning  should  be  acknowledged  only  when  the 
higher  stress  is  exceeded.  When  a  plate  does  exceed  yield  in  a  plastic  anal- 
ysis ,  the  user  must  assess  the  magnitude  of  excess  strength  given  the  structure 
by  the  plate  and  make  an  approximate  compensation  for  it ,  or  reformulate  the 
problem  without  the  plate  elements. 

Buckling 

The  buckling  routine  will  check  beam  members  under  axial  compression  for 
instability.   Member  forces  found  from  the  elastic  solution  of  a  structure  are 
used  as  the  basis  for  the  buckling  calculations.   The  unit-load  method11  is 
used  to  compute  all  required  deflections  along  a  buckling  member,  which  may 
consist  of  one  or  more  beam  elements. 

Buckling  members  are  designated  in  the  program  by  the  nodal  numbers  of 
their  endpoints  and  are  read  as  input  data  by  the  program.   If  the  axial  force 
in  a  buckling  member  is  tensile,  or  less  than  15  percent  of  the  Euler  critical 
load,  the  member  is  not  checked  for  buckling.   The  15  percent  of  critical  is 
taken  as  the  load  which,  if  exceeded,  causes  deflections  (and  moments)  along 
the  buckling  member  to  be  significantly  increased  by  the  axial  force.12 

In  the  unit-load  method,  the  integral  of  equation  7  is  evaluated  to  deter- 
mine a  deflection  along  the  member  of  figure  16. 


AYA  = 


^f   dx,  (7) 


0 

where   AYA  =  deflection  in  Y  direction  at  point  A, 

M  =  moment  along  the  buckling  member  due  to  the  applied  loads, 
m  =  moment  along  the  buckling  member  due  to  a  unit  load  at  A, 
x  =  coordinate  along  member  axis, 

and      EI  =  bending  stiffness  of  the  member. 


1:LWang,  C.  K.   Statically  Indeterminate  Structures.   McGraw-Hill  Book  Co., 

New  York,  1953,  424  pp. 
l2Roark,  R.  J.,  and  W.  G.  Young.   Formulas  for  Stress  and  Strain.  McGraw-Hill 

Book  Co.,  New  York,  1975,  624  pp. 
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Buckling  member 


For  a  given  buckling  member,  the 
M  curve  is  obtained  from  the  elastic 
solution  of  a  structure,  and  the  M 
curve  is  computed  in  the  subroutine 
BUCKLE  for  any  location  A.   The  inte- 
gral is  approximated  by  equation  8, 
dividing  the  length  L  into  NINCR  incre^ 
ments  of  length  AL,  and  taking  the 
values  of  M  and  m  at  the  midpoints  of 
each  interval. 


NINCR 


AYA  - 


Moment  diagram  due  to  external  loads 


n=l 


M.AL 
EI 


(8) 


The  input  required  for  a  buckling 
member  is  the  two  endpoints  (NEP1,NEP2) 
and  the  member  numbers  of  the  beam  mem- 
bers containing  these  two  points 
(NMl ,  NM2).   For  a  buckling  member  con- 
sisting of  only  one  beam  element, 
NMl  =  NM2. 

Moment  diagram  due  to  unit  load  at  A 

The  step-by-step  procedure  used 
FIGURE  16.  -  Moment  diagrams  used  in  unit-   by  the  program  to  compute  a  deflection 
load  method.  curve  for  a  buckling  member  follows  : 

1.  Obtain  an  elastic  solution  of  a  structure,  giving  the  displacements 
of  each  node . 

2.  Using  the  member  stiffness  matrix  of  beam  element  NMl  and  the  nodal 
displacement  array  for  element  NMl,  obtain  the  member  forces  at  point  NEP1. 

3.  The  array  of  forces  in  step  2  yields  a  moment  curve  M  along  the  buck- 
ling member,  and  the  axial  force. 

4.  If  the  axial  force  is  tensile  or  less  than  15  percent  of  the  Euler 
critical  load,  do  not  proceed  further  with  this  buckling  member. 

5.  Using  the  moment  curve  in  step  3  and  the  unit  load  method,  compute 
the  deflection  curve  along  the  buckling  member. 


6.  Increase  the  moment  curve  of  step  3  by  including  the  effect  of  the 
axial  force  times  the  lateral  deflection  of  step  5. 

7.  Repeat  step  5,  but  this  time  use  the  moment  curve  from  step  6. 
Continue  repeating  steps  5  through  7  for  as  many  iterations  as  are  required  to 
show  a  diverging  deflection  curve,  or  for  NITER  iterations  if  the  curve  does 
not  diverge  (NITER  =  25). 
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Corner  gusset 


Structural  element 


B 


A  B  as  a  buckling  member 


FIGURE  17.  -  Buckling  member. 


For  the  case  of  an  unstable  buck- 
ling element,  the  deflection  curve 
found  in  step  5  will  get  increasingly- 
larger  with  each  step.   The  deflec- 
tions diverge  to  infinitely  large 
values  ,  and  the  program  output  gives  a 
message  saying  the  member  has  buckled. 

If  the  member  is  stable,  the 
deflection  curves  found  in  step  5  will 
converge  to  a  finite  value.   This 
deflection  curve  represents  a  state  of 
equilibrium,  where  the  effect  of  the 
axial  force  on  the  deflected  shape  is 
included.   In  this  case,  moments  including  the  axial  effect,  and  a  von  Mises- 
over-yield  (VMISES /YIELD)  ratio  are  computed  for  the  buckling  member. 

The  moment  diagram  m  used  in  the  unit  load  formula,  equation  7,  assumes  a 
pinned  connection  at  both  ends  of  the  buckling  member.  Although  this  is  not 
always  consistent  with  the  end  conditions  of  an  actual  buckling  member,  the 
effect  on  the  buckling  prediction  is  minor.  With  inconsistent  end  conditions, 
the  magnitude  of  the  computed  deflections  will  be  slightly  overestimated,  but 
the  convergence  or  divergence  of  the  deflection  curve  is  not  dependent  on  this 
magnitude.   Thus  the  decision  on  whether  or  not  the  member  buckles  is  not 
affected,  and  for  the  unbuckled  case  the  computed  stress  will  be  slightly 
overestimated.   If  the  end  conditions  of  the  buckling  member  are  pinned,  then 
the  exact  deflection  curve,  including  axial  effect,  will  be  computed. 

An  example  of  a  buckling  element  is  shown  in  figure  17  where,  due  to  the 
corner  gusset,  the  member  A^^B  is  a  more  realistic  designate-   of  a  buckling 
element  than  AB. 


Plot  Package 

The  plotting  routines  generate  two-dimensional  projections  of  three- 
dimensional  structural  models  composed  of  beam  and/or  plate  elements. 
Undeformed  and  deformed  geometries  can  be  plotted,  either  superimposed  on 
the  same  frame  or  on  separate  frames. 
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Each  node  is  resolved 
onto  a  two-dimensional  plot- 
ting surface ,  perpendicular 
to  an  optic  axis  which  pas- 
ses approximately  through 
the  center  of  the  structure 
and  is  oriented  relative  to 
the  structure  by  the  angles 
THETA  and  PHI.   These  two 
angles  are  shown  in  fig- 
ure 18.   The  angle  THETA 
tends  to  determine  which 
face  of  the  structure  will 
be  nearest  the  viewer,  and 
PHI  determines  whether  the 
top  or  bottom  surface  will 
be  shown.   Values  for  THETA 
and  PHI  can  be  directly 
input  by  a  user ,  or  can 
default  to  9  =  120°,  0  =  30° 
With  PHI  between  +30°  and 
-30°,  a  minimal  amount  of 
distortion  will  be  present  in  the  plot;  THETA  can  range  from  0°  to  360°. 


FIGURE  18.  -  Plotter  orientation  angles. 


When  superimposing  a  deflected  shape  onto  an  undeflected  shape,  a  magni- 
fication factor,  DMAG,  is  available  which  will  uniformly  increase  all  transla- 
tional  deformations,  making  the  deformed  plot  more  visible.   The  factor  should 
be  used  on  elastic  runs  unless  very  high  deflections  are  expected,  in  which 
case  it  is  not  necessary.   On  plastic  runs  with  a  user-specified  deflection 
limitation,  it  is  not  needed;  without  a  user-specified  deflection  limitation, 
it  is  useful  in  some  cases  but  is  usually  not  needed.  A  value  of  DMAG  in  the 
range  3  to  10  will  be  sufficient  for  most  elastic  runs.   Furthermore, 
deflected  shapes  generally  will  show  more  clearly  a  loading  pattern  when 
superimposed  over  the  undeflected  shape  ,  rather  than  plotted  on  a  separate 
frame.   The  character  "o"  is  used  to  mark  undeformed  nodes;  "*"  is  used  to 
mark  deformed  nodes. 


When  plotting  a  two-dimensional  structure,  it  is  required  to  have  "depth" 
in  the  Z  direction  of  the  structure  in  order  to  properly  scale  the  plot.   This 
can  be  achieved  either  by  locating  the  structure  in  the  Ys -Zs  or  Xs -Zs  planes 
(not  the  Xs -Ys  plane)  as  defined  by  the  global  structure  axis  system,  or  by 
locating  it  in  a  plane  that  is  not  parallel  to  any  of  the  three  principal 
planes . 
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Call  Sequence 

The  plotting  routines  are  called  from  CANOPY /V2  with  the  following  call 
statement : 

CALL  PLOTS  (IADV,  NJ,  M,  NUMPL ,  X,  Y,  Z,  J  J ,  JK,  THETA ,  PHI,  TITLE,  ANGL) 

where        IADV  =  frame  advanee  (if  IADV  =  0,  advance  frame;  if  IADV  =  1, 

do  not  advance  frame), 

NJ  =  number  of  j  oints , 

M  =  number  of  beam  elements , 

NUMPL  =  number  of  plate  elements, 

X,  Y,  Z  =  arrays  of  nodal  coordinates  (deformed  or  unde formed) , 

JJ,  JK  =  arrays  of  beam  element  endpoints , 

THETA  ,  PHI  =  orientation  angles  , 

TITLE  =  structure  title,  printed  along  bottom  of  plot, 

and         ANGL  =  array  to  print  orientation  angles  below  title. 

This  package,  currently  operational  on  Gould  plotters,  can  be  easily 
adapted  to  a  Calcomp  plotter,  with  the  following  modifications.   The  raster 
count  limits,  statements  76-79  of  subroutine  PLOTS,  must  be  set  to  reflect  the 
larger  size  of  the  plot.  For  a  Calcomp,  limits  of  IL=100,  IR=1800,  JB=130 , 
JT=1900  should  be  satisfactory.   In  addition  to  the  raster  count  limits,  the 
third  argument  in  SETUFV  must  be  changed  from  'MUST  GOULD1  to  'MUST  CALCOMP', 
at  statement  170  of  subroutine  PLOTS. 

Plot  Subroutines 

The  plotting  routines  (PLOTS,  PLOTIT)  make  use  of  several  standard 
graphics  library  routines  to  generate  the  required  graphics  file.   The  rou- 
tines and  their  functions  follow: 

1.  SETUPV--setup  routine  to  activate  plotting,  usually  unique  to  each 
computer  installation. 

2.  FRAMEV — frame  advance  routine. 

3.  PLOTCV — routine  to  plot  a  specified  character;  plots  "o"  for 
undeformed  node  points  and  "*"  for  deformed  node  points. 

4.  LINEUV — routine  to  draw  a  line  between  two  points. 
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5.  MODEV — routine  to  convert  user  (Xs  ,  Ys  ,  Zs )  coordinates  to  raster 
coordinates . 

6.  TYPEV- -routine  to  type  a  line  of  printed  information  on  the  plot. 

7.  FINSHV — routine  to  close  out  the  graphics  file;  usually  unique  to  a 
particular  installation.   Called  from  CAN0PY/V2 ,  immediately  prior  to  program 
termination. 

The  above  plot  library  routines  or  their  equivalent  must  be  available  to 
the  plot  package.   If  equivalent  routines  are  available  but  under  different 
names,  the  above  names  must  be  replaced  with  the  proper  ones  wherever  they 
appear  in  subroutines  PLOTS  and  PLOTIT.   The  variables  in  the  call  statements 
of  the  above  routines  are  noted  on  comment  cards  in  the  two  subroutines . 

PROGRAM  ORGANIZATION 

The  PLASTIC  CANOPY  program  consists  of  a  driver  routine,  CAN0PY/V2 ,  and 
27  subroutines.   Some  of  the  subroutines  act  as  subdrivers  ,  to  control  certain 
distinct  phases  of  the  overall  problem  solution.   The  subdrivers  are  all 
called  from  the  main  driver,  CAN0PY/V2.   They  are  listed,  with  their  functions, 
in  table  1. 

TABLE  1.  -  Subdrivers  and  their  functions 


Subdr 

iver 

Function 

SOLVE 

Controls  assembly  and  solution  of  the  structure  stiffness 

equations . 
Builds  local  stiffness  for  plate  elements. 
Computes  and  prints  out  plate  element  stresses. 
Creates  graphics  file  for  plots  of  deformed  and  undeformed 

geometry. 

STRESS 

PLOTS 

In  table  2,  the  driver  and  the  four  subdrivers  are  listed,  with  the  sub- 
routines called  by  each. 

TABLE  2.  -  Driver  and  subdriver  calls 


Sub  or  main 

driver 

Called  subroutines 

CAN0PY/V2  (main) 

PROP,  SOLVE,  BOUND,  BEAM,  T  PLATE  ,  BUCKLE,  PLOTS, 

STRESS. 

CALBAN,  ADDSTF,  INL ,  USOL,  PRINTD. 

TPIATE  (sub). 

STRETR,  CSTSTR,  LCT9ST ,  QTSHEL ,  QDCOS  ,  TDCOS ,  TRFPRD , 
SLST,  SLCCT,  LSTSTR,  LCTMOM. 

STRESS  (sub). 

STRSC,  SHL. 

PLOTS  (sub).. 

PLOTIT . 
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The  main  driver,   CAN0FY/V2 ,   computes    local   stiffness  matrices    for  beam 
elements   and  performs   the   static   condensation  required   for   internal  binge   and 
plastic  hinge   insertion. 

For  a   structure  without  plate  elements,    the   subroutines  pertaining   to 
plates   are  bypassed  by  not  calling  TPIATE   and  STRESS    from  CAN0PY/V2.      If   only 
plate  elements   are   present,   then  the  majority  of   the   coding  in  CAN0FY/V2   is 
bypassed,    since   the    local   [k]'s   are   formed  by  TPIATE,   the  equations   are   assem- 
bled and  solved  by  SOLVE,   and   the  plate   stresses   are   computed  by  STRESS. 

Buckling  analysis    is   done   in  routine  BUCKLE ,   called  from  CANOPY /V2   once 
for  one   or  more  buckling  elements. 

Subroutines 

The   27   subroutines   that,   along  with   the   driver  CAN0PY/V2 ,   comprise   the 
PLASTIC  CANOPY  program  are   listed  here,   along  with  a  brief  description  of  what 
each  subroutine   does : 

1.  PROP- -computes   section  properties   of  beam  members . 

2.  BEAM--assigns   parameters    for   CALBAN;    called  once    for  each  beam  element . 

3.  BOUND — assigns   parameters   for  CALBAN;    called  once   for  each  boundary 
element. 

4.  CALBAN— calculates   bandwidth   of  each  element,   saves    largest   for 
structure  bandwidth,    stores   element  stiffness  matrices   on  auxiliary   storage 
units . 

Subroutines   5-9  are   used  to  assemble  and   solve   the   global  equilibrium  equations . 

5.  ADDSTF — forms   global  equations   in  blocks. 

6.  INL--forms   right-hand  side   of  global  equations   in  blocks. 

7.  USOL--solves   equilibrium  equations. 

8.  PRINTD--arranges   displacement  vector   into  array  DJ  so   it   can  be   used 
by   CANOPY /V2. 

9.  SOLVE — acts   as   a   driver  for  the  equation  solution  procedure. 

Subroutines    10-24  are  used  to  formulate  plate  element   stiffness  matrices   and 
to  compute   plate  element   stresses. 

10.  TPIATE — reads   plate   input   data,   forms    load  vector,   calls   other  plate 
subroutines . 

11.  STRESS — supervises   calculation  of  plate  element  stresses. 

12.  SHL — combines  bending  and  membrane   stresses,   prints    stresses. 
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13.  STRSC — computes  plate  element  stresses. 

14.  QTSHEL — forms  stiffness  matrix  and  load  vector  for  plate  element, 
evaluates  stresses  and  moments. 

15.  STRETR — forms  global  forces  due  to  normal  pressure. 

16.  CSTSTR — stress  displacement  transformation  for  constant  strain 
triangle. 

17.  LCT9ST — moment  resultant-displacement  transformation  for  a  three  node  , 
linear,  curvature  compatible,  triangular  bending  element. 

18.  QDCOS—direction  cosine  matrix  of  local  element  system. 

19.  TDCOS--direction  cosine  matrix  of  local  system  and  projected  dimen- 
sions of  a  triangular  component. 

20.  TRFPRD — transformation  relating  local  subtriangle  to  nodal  displace- 
ments at  the  nodes . 

21.  SLST — forms  stiffness  matrix  for  a  constant  strain  triangle  (membrane 
contribution) . 

22.  LSTSTR — computes  inplane  stresses  in  a  constant  strain  triangle. 

23.  SLCCT-- forms  plate  bending  stiffness  and  load  vector  for  a  linear, 
curvature  compatible,  triangle,  with  9  degrees  of  freedom. 

24.  LCTMOM — computes  moments  in  a  linear,  curvature  compatible,  triangle. 

25.  BUCKLE --performs  all  calculations  necessary  on  a  buckling  element. 

26.  PL0TS--sets  up  required  input  for  plot  generation  routine. 

27.  PLOTIT — generates  graphic  file  for  plot. 

Auxiliary  Storage  Units 

During  a  program  execution,  groups  of  data  are  generated  and  then  stored 
on  temporary,  low-speed  storage  units  to  be  accessed  when  needed  later  in  the 
program.   The  units  used  in  the  program  and  the  type  of  data  stored  on  each 
are  given  in  table  3. 
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TABLE  3 .  -  Auxiliary  storage  units 


Logical  unit 

Stored  information 

2 

Deflection  array  after  solution  of  structure  equations. 
Load  vector,  written  in  blocks. 

3 

4. 

Assembled  stiffness  matrix  and  load  matrix  in  blocked 

form. 

7. 

Spare  unit  used  in  ADDSTF  to  assist  equation  assembly 
process . 

8. 

All  local  element  stiffness  matrices  ,  in  the  order  beams  , 

plates,  boundary. 

10. 

Local  stiffness  arrays  for  all  plate  elements. 
Local  stiffness  arrays  for  plates  (formatted  differently 
than  on  10) . 

11. 

14. 

Principal  stresses,  plate  elements. 

15. 

Beam  member  end  reactions . 

16. 

Do. 

17. 

Do. 

18. 

Local  stiffness  matrix  for  all  beam  elements. 

In  table  4,  each  auxiliary  unit  is  listed  along  with  the  subroutines  from 
which  it  is  accessed  by  nonformatted  READ  and  WRITE  statements. 


TABLE  4.  -  Auxiliary  storage  access 


Unit 


2, 

3, 

4, 

7, 

8, 

10, 

11, 

14, 

15, 

16, 

17, 

18, 


Read 


PRINTD  STRESS 

ADDSTF 

USOL 

ADDSTF 

ADDSTF 

STRESS  STRSC 

CAN0PY/V2 

SHL 

CANOPY  /V2 

CANOPY /V2 

CANOPY /V2 

CAN0PY/V2 


Write 


USOL  CANOPY  /V2 

INL 

ADDSTF 

ADDSTF 

CALBAN  CAN0PY/V2 

TPLATE 

CALBAN 

SHL 

CANOPY  /V2 

CANOPY /V2 

CANOPY /V2 

CAN0PY/V2 


The  current  version  of  the  program  has  the  following  size  limitations 

Number  of  joints  : 100 

Number  of  beams  : 100 

Number  of  plates  : 150 

Number  of  internal  hinges  :».... 10 

Number  of  plastic  load  steps  : 20 

Number  of  beam  element  geometries : 20 

Number  of  buckling  members  : «, 5 

Number  of  joints  with  restraints  : 20 

These  limits  can  be  increased  by  enlarging  the  appropriate  DIMENSION 
statements. 
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Sequence 

1 

2a , 

2b , 

3 

4 


4a (optional) 
5 

5a (optional) 


9 

10 

11 (optional) . 

12 (optional) . 


INPUT  INSTRUCTIONS 
Input  Card  Sequence 
Information 

Title 

First  control  card;  program  options 

Second  control  card;  structure  definition 

Joint  designation  cards 

Geometric  properties,  beam  elements 
(omit  if  NMPT  =  0) 


Properties  for  beam  type  6, 


Beam  member  designation  cards 
(omit  if  NMC  =  0) 


Beam  orientation,  if  AA  =  1 


Plate  element  designation  cards 
(omit  if  NUMPL  =  0) 


Joint  restraint  cards 

Load  data  control 

Loaded  joint  cards  (omit  if  NLJC  =  0).... 

Loaded  member  cards  (omit  if  NLMC  =  0)... 

Beam  buckling  element  designation  cards 
(omit  if  NBM  =  0) 


Plot  orientation. 


Number 

1 
1 
1 
NNC 

NMPT 
2 

NMC 

1 

NUMPL, 
or  less 

NRJ 
1 

NLJC 
NLMC 

NBM 
NVIEW 


The  variable  names  appearing  in  the  last  column  are  read  from  card  2b, 
structure  definition  card. 

For  multiple  loadings  on  a  structure,  repeat  card  2a  and  cards  8  through 
12  for  each  additional  loading. 

For  multiple  structures  in  a  single  run,  repeat  the  entire  card  sequence 
for  each  structure. 
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1.   Title  card 

2a.   Control  card  1 

Format  (15,  F10.4,  715, 


Input  Format 

Program  title 

Program  options 
F10.2,  215) 


Column 


30 

36-40 
45 


50 

51-60 
65 


Variable 


IPIAS 


6-15 

DLIMIT 

16-20 

JOINT 

25 

IDIREC 

IPL0TI 

NVIEW 
ISHIFT 


IANGLE 

DMA.G 
IPR 


Description 


1   =  plastic   analysis 

0  =  elastic  analysis 

Deflection  limitation,  inches,  for  plastic  runs 
Node  point  of  DLIMIT  deflection  limitation 

Direction  of  deflection  limitation,  DLIMIT 

1  =  global   X-direction 

2  =  global   Y-direction 

3  =  global   Z-direction 

1  =  plot  input  geometry 

0  =  do  not  plot  input  geometry 

Number  of  plot  orientations 

1  =  advance  plot  frame 

0  =  do  not  advance  plot  frame 

Use  ISHIFT  =  0  to  superimpose  deflected  and 
undeflected  plots. 

Plot  orientation  flag: 

1  =  input  plot  orientation  angles  on  card(s)  12 

0  =  use  standard  plot  orientation 

Magnification  factor,  deformed  plot 

1  =  print  results  after  each  load  step 
0  =  print  results  after  last  load  step 

(applies  only  to  plastic  runs). 


70 


NBM 


Number  of  buckling  members 
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2b. 


Control  card  2 

Format  (915,  3F10.0,  F5 


Column 


1-5 


Variable 


NST 


6-10 

NJ 

11-15 

NNC 

16-20 

NMTP 

21-25 

M 

26-30 

NMC 

31-35 

NUMPL 

36-40 

NRJ 

41-45 

NLS 

46-55 

E 

56-65 

G 

66-75 

EP 

76-80 

GP 

If  EP  and  GP  are  blank, 
elements . 

3.   Joint  designation  cards 
Format  (215,  6F10.2,  15) 


Structure  definition 
•3) 

Description 

Number  of  structural  geometries  (must  be  1  for 
the  last  of  a  series  of  geometries). 

Number  of  joints  (nodes) 

Number  of  joint  designation  cards 

Number  of  beam  cross  section  geometries 

Number  of  beam  elements 

Number  of  beam  designation  cards 

Number  of  plate  elements 

Number  of  restrained  joints 

Number  of  loading  conditions 

Young's  modulus,  beams 

Shear  modulus ,  beams 

Young's  modulus,  plates 

Poisson's  ratio,  plates 

the  values  E  and  G  are  used  for  beam  and  plate 


Column 

1-5 
6-10 
11-20 
21-30 
31-40 
41-50 
51-60 
61-70 
71-75 


Variable 
JP 
Jl 

X(JP) 
Y(JP) 
Z(JP) 
X(J1) 
Y(J1) 
Z(J1) 
JINCR 


Description 


Joint  JP 
Joint  Jl 


Xs  coordinate  of  JP,  inches 

Ys  coordinate  of  JP,  inches 

Zs  coordinate  of  JP,  inches 

Xs  coordinate  of  Jl ,  inches 

Ys  coordinate  of  Jl,  inches 

Zs  coordinate  of  Jl ,  inches 
Joint  designation  increment  number 


If  JP  =  Jl ,  designation  and  coordinates  of  a  single  joint  are  being  input 
and  X(JP),  Y(JP) ,  and  Z(JP)  are  not  required;  JINCR  is  input  as  1.  When 
JP  fi   Jl ,  coordinates  for  intermediate  joints  are  calculated  by  linear  interpo- 
lation between  input  values  for  joints  JP  and  Jl.   Joint  designations  are  cal- 
culated by  incrementing  JP  by  JINCR  until  Jl  is  reached. 


4.   Geometric  properties,  beam  elements 
Format  (215,  F10.0,  4F10.4) 


Column 

Variable 

1-5 

I 

6-10 

TYPE (I) 

TYPE  (I)    = 

1 

TYPE (I)    = 

2 

TYPE (I)    = 

3 

TYPE  (I)    = 

4 

TYPE (I)    = 

5 

TYPE (I)    = 

6 

11-20 

YSTRSM(I) 

21-30 

H 

31-40 

B 

41-50 

TW 

51-60   TF 


Description 

Member  geometric  property  number 

Type  of  geometric  cross  section  for  member 

I-beam 

Rectangular  or  square  tubing 

Circular  tubing  or  pipe 

Rectangular  solid 

Circular  solid 

General  solid;  input  section  properties  on  next  two 

cards . 
Yield  strength  of  member,  psi 
Height  of  member;  if  TYPE(I)  =  3  or  5 ,  H  is  outside 

diameter. 
Width  of  member;  if  TYPE (I)  =  3  or  5 ,  B  is  not  input . 
If  TYPE (I)  =  1  or  2,  TW  is  web  thickness 
If  TYPE (I)  =  3,  TW  is  wall  thickness 
If  TYPE (I)  =  4  or  5,  TW  is  not  input 
If  TYPE (I)  =3,  4  or  5,  TF  is  not  input 


If  TYPE (I)  =  6,  H,  B,  TW,  and  TF  are  not  required;  instead,  two  section 
properties  cards  are  read  in  right  after  the  current  member  geometric  proper- 
ties card. 

4a.   Section  property  cards  (input  only  if  TYPE (I)  =  6) 


First  c 

:ard 

Format 

(7F10.3) 

Column 

Variable 

1-10 

AX 

11-20 

IXP 

21-30 

IYP 

31-40 

IZP 

41-50 

ACXP 

51-60 

FP 

61-70 

BR 

Description 

Member  cross -sectional  area 
Torsional  constant  about  X^  axis 
Moment  of  inertia  about  Y„  axis 
Moment  of  inertia  about  Zm  axis 
Distance  from  X^  axis  to  extreme  fiber  at  which 
highest  torsional  stress  occurs. 

Shape  factor  for  bending  shear;  can  be  approxi- 
mated as  1  if  not  known. 

Ratio  of  plastic  modulus  to  elastic  modulus 

Theoretical  values  of  the  ratio  BR  are  given  in  appendix  C  for  various 
regular-shaped  cross  sections.   These  can  be  used  as  a  guide  for  approximating 
BR  for  a  general  shape,  or  it  can  be  taken  as  1.0. 
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4a.   (Continued) 


Second 

card 

Format 

(8F10 

.3) 

Column 

Variable 

1-10 

ACYM(I,1) 

11-20 

ACZM(I,1) 

21-30 

ACYM(I,2) 

31-40 

ACZM(I,2) 

41-50 

ACYM(I,3) 

51-60 

ACZM(I,3) 

61-70 

ACYM(I,4) 

71-80 

ACZM(I,4) 

Description 

Extreme  fiber  coordinates  for  bending  stress 
computations . 


ACYM  and  ACZM  are  the  Zn  and  Ym  coordinates,  respectively,  of  up  to  four 
points  on  a  member's  cross  section  at  which  the  maximum  bending  stresses  could 
occur.   For  example,  if  the  member  were  a  rectangular  solid,  the  four  points 
would  be  the  four  corners.   Figure  19  shows  coordinates  of  point  1. 


m 


ACZM(I,1) 


m 


FIGURE  19.  -   Extreme  fiber  coordinates. 


Global  coordinate  system 
Principal  axes  of  cross  section 

FIGURE  20.  -   Beam  member  rotation  coordinates. 


X   ,Y    ,Z 
8      g      g 

X' ,Y' ,Z' 

m     m     m 


Member  designation  cards 
Format  (1315) 
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Column 

Variable 

1-5 

IP 

6-10 

Jl 

11-15 

JJ(IP) 

16-20 

JK(IP) 

25 


AA 


26-30 

MTP 

31-35 

MINCR 

40 

1X1 

45 

IY1 

50 

IZ1 

55 

1X2 

60 

IY2 

65 

IZ2 

Description 

Member  number  IP 

Member  number  Jl 

Node  number  for  end  j ,  member  IP 

Node  number  for  end  k,  member  IP 

Rotation  of  member  IP  is  indicated  by 

AA  =  0 ,  angle  a  is  zero 

AA  =  1 ,  angle  a  is  not  zero 

Member  geometric  property  number,  member  IP 

Member  designation  increment  number 


Xj,  rotation,  joint  JJ(IP) 
Y  rotation,  joint  JJ(IP) 


Zm  rotation,  joint  JJ(IP) 

\  rotation,  joint  JJ(IP) 

Ym  rotation,  joint  JJ(IP) 

Z  rotation,  joint  JJ(IP) 


Internal  hinge  flag 

Internal  hinge  flag 

Internal  hinge  flag 

Internal  hinge  flag 

Internal  hinge  flag 

Internal  hinge  flag 

Internal  hinge  flag  =  1,  release  corresponding  rotation. 

Internal  hinge  flag  =  0 ,  do  not  release  rotation. 

If  IP  =  Jl,  designation  of  a  single  member  is  being  input;  MINCR  is  not 
required.  When  IP  ^  Jl,  member  designations  are  calculated  by  incrementing 
IP  by  1  until  Jl  is  reached  and  by  incrementing  JJ(IP)  and  JK(IP)  by  MINCR 
until  JJ(J1)  and  JK(Jl)  are  reached.   If  AA  =  1 ,  a  member  rotation  card  must 
be  read  next.  Members  with  internal  hinges  must  be  input  one  at  a  time. 

5a.  Member  rotation  card  (input  only  if  AA  =  1) 
Format  (3F  10.5) 


Column 

1-10 
11-20 
21-30 


Variable 
XP 
YP 
ZP 


XP,  YP,  and  ZP  are  x,  y,  and  z  coordinates,  respectively,  for  a  point  p, 
which  lies  in  the  principal  plane  Xj-Yj  of  members  IP  to  Jl  but  not  on  the 
member  axis.   The  member  rotation  card  is  read  in  after  the  current  member 
designation  card.   Figure  20  illustrates  how  these  coordinates  are  determined. 
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6. 


Plate  designation  cards 
Format  (615,  2F10.0) 


Column 
1-5 
6-10 
11-15 
16-20 
21-25 
26-30 
31-40 
41-50 


Variable 
mm 
I 
J 
K 
L 

INCL 
EL(1) 
EL(2) 


Description 
Plate  element  number 
I  -  joint  for  element  mm 
J  -  joint  for  element  mm 
K  -  joint  for  element  mm 
L  -  joint  for  element  mm 
Plate  designation  increment  number 
Element  thickness,  inches 
Element  pressure,  psi 


Notes  on  plate  input  cards 


Plate  element  numbers  must  be  defined  in  ascending  order  beginning  with  1 
and  ending  with  NUMPL;  repeated  elements  are  illegal.   Omitted  plate  element 
cards  are  generated;  however,  the  last  plate  element  (NUMPL)  must  always  be 
input  directly. 

For  omitted  element  numbers,  the  program  automatically  generates  omitted 
information  as  follows:   Let  M  and  N  be  the  element  numbers  mm  read  on  two 
successive  plate  input  cards,  with  M  less  than  N.  Element  numbers  are  incre- 
mented by  1  until  N-l  is  reached.   Corresponding  nodes  are  incremented  by  the 
plate  increment  number,  INCL.   Thickness  and  pressure  for  the  generated  ele- 
ments are  the  same  as  for  element  N. 

The  program  evenly  divides  the  total  load  due  to  a  pressure  to  the  nodes 
of  a  plate  element. 


7. 


For  a  multiple  loading  run,  the  pressure  is  the  same  for  each  load  case. 


Description 
Restrained  joint  K 


Joint  restraint 

cards 

Format 

(715) 

Column 

Variable 

1-5 

K 

10 

RL(6*K-5) 

15 

RL(6*K-4) 

20 

RL(6*K-3) 

25 

RL(6*K-2) 

30 

RL(6*K-1) 

35 

RL(6*K) 

Restraint  index  for  Xs 

Restraint  index  for  Ys 

Restraint  index  for  Zs 

Restraint  index  for  Xg 

Restraint  index  for  Ys 

Restraint  index  for  Zc 


translation 

translation 

translation 

rotation 

rotation 

rotation 


If  RL(P)  =  1,  displacement  P  is  restrained  with  a  boundary  element;  if 
RL(P)  =  0,  displacement  P  is  allowed  to  occur. 
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8. 


Load  data 

card 

Format 

(215) 

Column 

Variable 

1-5 

NLJC 

6-10 

NLMC 

Description 
Number  of  loaded  joint  cards 
Number  of  loaded  beam  member  cards 


9.   Loaded  joint  cards 
Format  (315,  6F10.0) 

Column 

1-5 

6-10 
11-15 
16-25 
26-35 
36-45 
46-55 
56-65 
66-75 


Variable 

KI 
KJ 
INCRP 

AFX 
AFY 
AFZ 
AMX 
AMY 
AMZ 


Description 

Loaded  joint  KI 
Loaded  j  oint  KP 
Loaded  joint  increment  number 
Force  in  Xs  direction,  lb 
Force  in  Ys  direction,  lb 
Force  in  Zs  direction,  lb 
Moment  about  Xs  axix ,  in-lb 
Moment  about  Ys  axis  ,  in-lb 
Moment  about  Zs  axis  ,  in-lb 


Joints  KI,  KI  +  INCRP,  KI  +  2*INCRP,  •  ..,  KJ  are  subjected  to  loads  AFX, 
AFY,  AFZ,  AMX,  AMY,  and  AMZ.   If  KI  =  K  J ,  a  single  joint  is  being  loaded  and 
INCRP  must  be  input  as  1. 

10.   Loaded  member  cards 
Format  (315,  3F10.3) 

Description 

Uniformly  loaded  member  MI 

Uniformly  loaded  member  MJ 

Uniformly  loaded  member  increment  number 

Uniform  load  in  XE  direction,  lb/in 

Uniform  load  in  Ys  direction,  lb/in 

Uniform  load  in  Zs  direction,  lb/in 

Members  MI ,  MI  +  INCRW ,  MI  +  2*INCRW,  . . . ,  MJ  are  subjected  to  uniform 
loads  WXB ,  WYB ,  and  WZB.   If  MI  =  MJ ,  a  single  member  is  being  loaded  and 
INCRW  must  be  input  as  1. 


Column 

Variable 

1-5 

MI 

6-10 

MJ 

11-15 

INCRW 

16-25 

WXB 

26-35 

WYB 

36-45 

WZB 
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11.  Beam  buckling  cards 
Format  (415) 

Description 

Nodal  number,  endpoint  1,  buckling  member 

Nodal  number,  endpoint  2,  buckling  member 

Beam  element  containing  node  NEP1 

Beam  element  containing  node  NEP2 

A  buckling  member  may  consist  of  one  or  more  beam  elements.   Figure  21 
shows  two  possible  buckling  members,  and  their  input  cards. 

12.  Plot  orientation 
Format  (2F  10.4) 

Column 


Column 

Variable 

1-5 

NEP1 

6-10 

NEP2 

11-15 

NM1 

16-20 

NM2 

1-10 
11-20 


Variable 
THETA 
PHI 


Description 
Plot  orientation  angles; 
See  section  plot  package 


This  card  is  read  only  if  IANGLE  =  1  on  card  2a;  if  IANGLE  =  0  and  plot- 
ting options  are  active,  the  orientation  angles  default  to  THETA  =  120°, 
PHI  =  30°. 
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FIGURE  21 
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13       14 
Buckling  input  cards. 


OUTPUT  INTERPRETATION 

Output  generated  by  PLASTIC 
CANOPY  consists  of  the  following 
15  groups  of  information.   They 
will  appear  in  the  order  listed; 
sections  that  do  not  apply  on  a 
specific  run  are  omitted. 

1.  Program  description  param- 
eters, options. 

2.  Output  abbreviation 
descriptions. 

3.  Beam  element  properties 

4.  Joint  restraints 
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5.  Equation  parameters 

6.  Loading  data 

7.  Joint  displacements 

8.  Restrained  joint  reactions 

9.  Beam  member  stresses 

10.  Beam  member  end  forces 

11.  Buckling  summary 

12.  Shell  element  stresses,  member  axes 

13.  Shell  element  stresses,  principal  axes 

14.  Loading  summary 

15.  Plastic  analysis  summary 

The  15  groups  of  data  above  are  described  in  more  detail  in  the  following 
paragraphs : 

1.  Program  description  parameters  and  options  repeat  the  data  input  on 
the  two  control  cards.   Program  options  are  printed  for  each  load  case;  pro- 
gram description  parameters  are  printed  once  for  each  structural  geometry. 

2.  A  table  of  abbreviations  used  in  the  beam  element  property  table  and 
beam  element  stress  summary  table  is  printed  once  for  each  structure  geometry. 
It  is  omitted  on  structures  with  only  plate  elements. 

3.  Section  properties  of  all  beam  elements  are  summarized;  included  are 
the  nodal  numbers  of  the  beam  endpoints ,  moments  of  inertia,  distances  to 
extreme  fibers,  cross-sectional  area,  shear  and  bending  shape  factors,  and 
direction  cosines.   The  table  is  omitted  when  there  are  no  beam  elements;  it 
is  printed  for  each  structural  geometry  in  a  run.  Abbreviations  in  this  table 
are  explained  in  group  2. 

4.  Tabulates  all  joints  that  have  an  external  restraint;  each  joint  has 
a  1  or  0  entry  for  each  of  the  six  degrees  of  freedom,  in  the  global  coordi- 
nate system.  A  1  denotes  a  restrained  degree  of  freedom;  0  denotes  an 
unrestrained  degree  of  freedom.   This  table  appears  once  for  each  structure 
geometry. 

5.  Equation  parameters  listed  are  total  number  of  equations,  maximum 
bandwidth,  equations  in  a  block,  and  number  of  blocks.   Printed  once  for  each 
structural  geometry. 
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6.  Prints  number  of  loaded  joint  cards  and  loaded  member  cards  that 
were  read  for  this  load  case;  lists  loaded  nodes  and  magnitude  of  the  loading, 
and  loaded  members  and  the  magnitude.  This  appears  once  for  each  load  case; 
for  multiple -load  cases ,  this  group  of  data  follows  the  program  options  for 
the  second  and  all  subsequent  load  cases. 

7.  Displacements  of  all  joints,  in  global  coordinates,  are  printed  for 
each  load  case.   For  a  plastic  analysis,  the  displacements  are  the  summation 
of  all  the  load  increments.   If  the  extra  print  option  (IPR  =  1)  is  used  in  a 
plastic  analysis ,  the  displacements  are  printed  after  each  load  increment 
(based  on  the  magnitude  of  loads  on  the  input  cards),  and  finally  for  the 
summation  of  all  load  increments,  based  on  the  actual  ultimate  load. 

8.  Prints  (the  reactions,  in  global  coordinates,  at  all  restrained 
joints;  a  nonzero  reaction  will  occur  for  most  degrees  of  freedom  that  have 
corresponding  input  parameters  of  1  from  section  4.  This  is  printed  for  each 
load  case.   If  IPR  =  1  on  a  plastic  run,  cumulative  reactions  are  printed 
after  each  load  increment. 

9.  Tabulates  the  following  stresses  at  the  two  endpoints  of  each  beam 
element:  Axial  stress  (SIGAX) ,  combined  bending  stress  (SIGBMX) ,  torsional 
shear  stress  (TAUMAX) ,  combined  bending  and  axial  stress  (SIGMAX) ,  principal 
stresses  (SIGMA1  and  SIGMA2) ,  and  von  Mises  effective  stress  (VMISES) .  Also 
prints  the  ratio  of  von  Mises  stress  over  material  yield  stress  (VMISE S /ALLOW) , 
and  a  column  of  integers  under  HINGE,  which  indicates  members  that  have  had 
plastic  hinges  applied.  A  zero  in  this  column  indicates  no  hinge;  an  integer 
denotes  a  hinge,  and  its  value  is  the  load  step  in  which  the  hinge  was  applied. 

For  an  elastic  analysis,  the  highest  stressed  point  in  any  beam  element, 
based  on  the  von  Mises  stress,  VMISES,  should  equal  the  yield  stress. 
VMISES/ALLOW  will  be  1.0  at  this  point,  and  lower  for  all  other  points. 
Bending  stresses  are  computed  based  on  the  elastic  modulus  of  the  section. 

For  a  plastic  analysis,  the  terms  SIGBMX,  SIGMAX,  SIGMA1,  SIGMA2 ,  and 
VMISES  are  not  allowed  to  exceed  the  material  yield  stress.   This  is  consist- 
ent with  the  assumption  of  an  elastic -perfectly  plastic  material.  Also  by 
definition,  a  plastic  hinge  develops  when  the  fully  plastic  bending  moment  has 
been  reached;  that  is ,  when  the  whole  cross  section  has  yielded  rather  than 
just  the  extreme  fiber.   Thus  bending  stress  on  a  yielded  section  cannot  be 
computed  from  strength-of -materials  formulas  using  the  elastic  bending  modulus, 
but  must  use  the  plastic  bending  modulus.  A  value  for  any  of  the  above  stress 
terms  equal  to  the  material  yield  stress  will  indicate  that  some  or  all  of  the 
cross  section  has  yielded. 

As  loading  progresses  in  a  plastic  analysis ,  axial  stress  at  a  hinge 
(that  is  ,  a  fully  yielded  cross  section)  will  continue  to  increase  ,  exceeding  the 
value  computed  when  the  hinge  first  formed.  For  most  loading  configurations, 
the  increase  in  axial  stress  is  insignificant,  around  2  to  3  percent  of  the 
yield  stress.  However,  in  certain  cases,  where  large  axial  stresses  contrib- 
ute to,  and  develop  after,  hinge  formation,  the  error  is  larger.  When  axial 
stress  in  a  member  reaches  the  yield  stress,  a  warning  is  printed  indicating 
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that  this  member  may  not  be  able  to  withstand  additional  axial  stress.  This 
warning  is  unlikely  to  appear  on  typical  problems ,  but  the  results  should  be 
examined  carefully  by  the  user  when  it  does  appear  in  the  output. 

10.  The  end  shears,  axial  throust,  bending,  and  torsional  moments  at 
both  ends  of  each  beam  member  are  printed,  all  in  the  beam  element  coordinate 
system.  With  IPR  =  1  on  a  plastic  run,  this  table  is  printed  after  each  load 
increment . 

11.  Summary  of  beam  buckling  analysis;  one  of  the  following  three  output 
groups  is  printed  for  each  buckling  element. 

a.  The  axial  force  is  tensile  or  less  than  15  percent  of  the  Euler 
load  (n^El/L2  )— For  this  case,  NO  will  be  printed  under  the  column  heading 
P.GT.15%  P  CRITICAL. 

b.  The  combined  bending  and  axial  forces  caused  the  element  to 
buckle— YES  is  printed  under  the  column  heading  P.GT.15%  P  CRITICAL,  and  under 
the  column  heading  MEMBER  BUCKLE  is  printed  YES,Z  or  YES ,Y ,  where  Z  and  Y 
refer  to  element  coordinate  axes  of  the  beam  member  NMl. 

c.  The  axial  force  exceeds  15  percent  of  the  Euler  load  but  does 
not  cause  buckling— P.GT.15%  P  CRITICAL  column  is  YES  and  the  MEMBER  BUCKLE 
column  is  NO.  Also  the  maximum  von  Mises  stress  along  the  buckling  element 
is  computed.  An  additional  warning  will  be  printed  for  any  member  in  which 
the  axial  stress  or  the  von  Mises  stress  exceeds  the  yield  stress. 

This  table  occurs  after  the  beam  member  force  table  in  an  elastic  run, 
and  after  the  loading  data  (item  6)  in  a  plastic  run. 

12.  Prints  membrane  stresses  and  bending  stresses  in  each  plate  element, 
and  superimposes  them  on  the  upper  and  lower  surfaces  of  the  plates.   The  two 
components  are  added  on  the  upper  surface  and  subtracted  on  the  lower  surface. 
All  stresses  are  in  the  local  plate  element  coordinate  system,  at  the  centroid 
of  the  element. 

13.  Principal  stresses,  orientation  of  the  principal  axes  with  respect 
to  local  axes,  and  the  von  Mises  stress  are  printed  for  each  plate  element, 
at  the  centroid.  A  warning  is  printed  after  this  table  if  the  effective 
stress  exceeds  36  ksi  (user  can  disregard  this  warning  if  higher  strength 
plates  have  been  used,  but  should  then  check  to  make  sure  the  higher  stress 
level  is  not  exceeded). 

14.  The  total  input  loads  and  the  capacity  of  the  structure  are  printed. 
For  an  elastic  beam  analysis ,  the  capacity  is  the  load  at  which  first  yield 
occurs;  for  a  plastic  analysis,  it  is  the  ultimate  load  capacity.   For  a 
plate -element -only  analysis,  the  capacity  is  the  same  as  the  input  loads. 

The  weight  of  the  structure  is  also  listed. 
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15.   Printed  only  after  a  plastic  analysis,  lists  elastic  capacity, 
plastic  capacity,  and  a  summary  of  the  load  increments  in  the  plastic  analysis , 
Absorbed  energy  is  included  in  the  incremental  summary.   If  a  user-defined 
deflection  limitation  is  imposed  at  a  node  to  control  program  termination,  the 
deflection  of  this  node  after  each  load  step  is  printed.  When  a  deflection 
limitation  is  not  used,  this  column  is  all  zeroes. 

The  15  output  groups  described  above  are  illustrated  in  the  following 
4  example  problems . 

EXAMPLE  PROBLEMS 

Four  example  problems  are  presented  to  illustrate  the  analysis  capabili- 
ties of  the  PIASTIC  CANOPY  program,  and  to  familiarize  the  user  with  input 
preparation  and  output  format. 

Example  1.— 4-Post  ROPS  Structure 

Figures  22  and  23  show  the  node  numbers  and  beam  element  numbers,  respec- 
tively, for  the  computer  model  used  in  the  first  example,  a  four-post  ROPS. 
Only  beam  elements  are  present  in  this  example;  all  are  made  of  3-  by  3-  by 
0.1875-inch  structural  tubing,  with  yield  stress  ®y    =  68,000  psi.  The  trian- 
gulation  built  up  in  each  of  the  four  upper  corners  is  used  to  simulate  gusset- 
ing  in  these  areas . 


40" 


FIGURE  22.  -  Noda!  numbers,  example  1. 


FIGURE  23.  -  Beam  element  numbers,  exam- 
ple 1. 
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THETA-120.0     PHI=30.0 


FIGURE  24.  -  Applied  load,  example  1. 


FIGURE  25.  -  Deformed  and  undeformed 
geometry  plot,  example  1. 


Two  loading  cases  are  solved;  the  applied  loads,  shown  in  figure  24,  are 
identical  in  each  case,  but  the  analysis  in  the  first  load  case  is  plastic, 
with  a  deflection  limitation  of  10  inches  at  node  15 ,  while  the  second  case 
uses  the  elastic  mode.   For  the  first  load  case,  deformed  and  undeformed  geome- 
tries are  plotted  and  are  shown  in  figure  25. 


Table  5  shows  the  input  data,  and  table  6  the  printed  output. 
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Example   2. — 4-Post  ROPS  With  Beams   and  Plates 

Node   numbering  and  element  numbering   schemes    for   this    four-post  ROPS, 
with  beam  and   plate  elements,   are   shown   in  figures   26  and  27,   respectively , 


10  12  14 


7  5" 


12  17  22  27 


19 


FIGURE  26.  -  Nodal  numbers,  example  2.  FIGURE  27.  - 


Beam  and  plate  element  num- 
bers, example  2 


-777- 


777- 


w     =   100   lb /in 


A 

FY   = 

-100   lb 

B 

FY   = 

-200   lb 

C 

FY   = 

-1,500   lb 

D 

FY   = 

-3,500   lb 

7^7- 


FIGURE  28.  -  Load  case  1,  example  2. 


FIGURE  29.  -  Load  case  2,  example  2. 
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The  vertical  posts   and  outer  roof  members   and  beam  elements   are  made   of 
3-  by  3-  by  0.1875-inch  structural   tubing,   and  a  0.25-inch  plate   covers   the 
roof.      Two   loading  conditions,   shown  in  figures    28  and  29,   are   applied;    load 
case    1   is   a  plastic  analysis  without   a  user-defined  deflection   limitation,   and 
load  case   2   is   an  elastic  analysis    that   includes   a  buckling  analysis   of  beam 
members    1,    19,   and  20. 

Input  data   is   presented   in  table   7,   and  output  data  appear   in  table   8. 


TABLE   7. 

-   Input 

cards    for  example   structure   2 

1 

3 

EW 

PLE  S 

TRUCT 

JRE  2 

PL 

1STIC 

CANO 

3Y  PR 

DGRW 

MA 

RCH  1 

5,197 

3 

29 

7 

1 

20 

10 

16 

4 

2 

2850 

0000. 

1109 

3000. 

] 

2 

0 

.0 

0 

.0 

40 

.0 

0 

.0 

0 

.0 

0 

.0 

1 

3 

7 

0 

.0 

75 

.0 

40 

.0 

0 

.0 

75 

.0 

0 

.0 

1 

8 

12 

10 

.0 

75 

.0 

40 

.0 

10 

.0 

75 

.0 

0 

.0 

1 

13 

17 

20 

.0 

75 

.0 

40 

.0 

20 

.0 

75 

.0 

0 

.0 

1 

18 

22 

30 

.0 

75 

.0 

40 

.0 

30 

.0 

75 

.0 

0 

.0 

1 

23 

27 

40 

.0 

75 

.0 

40 

.0 

40 

.0 

75 

.0 

0 

.0 

1 

28 

29 

40 

.0 

0 

.0 

40 

.0 

40 

.0 

0 

.0 

0 

.0 

1 

1 

2 

500 

00.0 

3 

.0 

3 

.0 

0.1 

875 

0.1 

375 

1 

1 

1 

3 

0 

1 

1 

2 

2 

2 

7 

0 

1 

1 

3 

6 

3 

4 

0 

1 

1 

7 

8 

3 

8 

0 

1 

4 

9 

10 

8 

13 

0 

1 

4 

11 

12 

13 

18 

0 

1 

4 

13 

14 

18 

23 

0 

1 

4 

15 

18 

23 

24 

0 

1 

1 

19 

19 

23 

28 

0 

1 

1 

0 

0 

0 

0 

0 

1 

20 

20 

27 

29 

0 

1 

1 

0 

0 
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0 

0 

1 

1 

3 

8 

9 

4 

1 

0 

.25 

4 

6 

11 

12 

7 

1 

0 

.25 

8 

11 

16 

17 

12 

1 

0 

.25 

12 

16 

21 

22 

17 

1 

0 

.25 

16 

21 

26 

27 

22 

1 

0 

.25 

1 

1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

1 

1 

1 

28 

1 

1 

1 

1 

1 

1 

29 

1 

1 

1 

1 

1 

1 

0 

1 

3 

6 

1 

10 

3.0 

0 

0 

.0 

0 

C 

7 

C 

3 

7 

4 

0 

.0 

-10 

3.0 

i\ 

6 

1 

0 

.0 

-2C 

3.0 

24 

26 

1 

0 

.0 

-2C 

3.0 

8 

18 

5 

0 

.0 

-2C 

3.0 

12 

22 

5 

0 

.0 

-2C 

3.0 

23 

23 

1 

0 

.0 

-35C 

3.0 

27 

27 

1 

0 

.0 

-15C 

3.0 

1 

3 

1 

1 

27 

29 

20 

20 

23 

28 

19 

19 

— -           1               — 
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Example  3.  -  Simple  Plate  Structure 

The  node  and  plate  element  numbering  schemes  are  shown  in  figure  30.  All 
plate  elements  are  5  by  5  inches,  and  0.5  inch  thick.  Analysis  is  performed 
for  two  load  cases,  as  shown  in  figures  31  and  32.   The  first  load  case,  fig- 
ure 30,  represents  a  uniform  inplane  load  in  the  X  direction  along  the  plate 
edge  X  =  20  inches  to  illustrate  membrane  action.   Nodal  load  distribution  is 
according  to  tributary  areas ;  thus  the  midpoint  load  is  twice  as  large  as  the 
outer  point  loads . 

The  second  load  case  is  a  uniform  load  along  X  =  20  inches ,  perpendicular 
to  plane  of  the  plates,  and  illustrates  bending  action  of  the  plate  element. 


5   in 


1,000 


•-2,000 


1,000 


FIGURE  30.  -  Node  and  plate  numbers, 
example  3. 


FIGURE  31.  -  Membrane  load,  example  3. 


1,000 

2,000  THETA-100.0     PHI-15.0 

1,000 

FIGURE  32.  -  Bending  load,  example  3.  FIGURE  33.  -  Deformed  and  undeformed  geom- 

etry   plot    for     load    case    2, 
example  3. 
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Input  and  output  data  are  presented  in  tables  9  and  10;  a  deformed  and 
undeformed  plot  of  the  second  load  case,  for  THETA  =  100°  and  PHI  =  30°,  is 
shown  in  figure  33. 

TABLE  9 .  -  Input  cards  for  example  structure  3 
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Example  4.  -  Underground  Mining  Vehicle  Canopy 

A  model  of  an  underground  mining  vehicle  roof  canopy  is  shown  in  fig- 
ure 34,  with  nodal  numbering  and  plate  element  numbering  shown.   The  model  is 
only  one-half  of  the  real  structure,  where  an  axis  of  symmetry  along  the 
X-axis  enables  subs  true turing  to  be  used.  Nodal  points  along  the  centerline , 
nodes  6,  10,  13,  16,  19,  22,  26,  30,  32,  43,  45,  47,  50,  53,  56,  and  59,  have 
boundary  conditions  preventing  displacement  in  the  Z-direction  and  rotation 
about  the  X-direction;  all  other  displacements  along  the  centerline  are  free 
to  occur. 

A  vertical  loading  is  applied,  with  the  following  forces  acting  on  the 
given  nodes : 


Joints  25,  26,  30,  31: 
Joint  29: 
Joint  32: 


Fy  =  2,000.0 
Fy  =  4,000.0 
Fv    =  1,000.0 


FIGURE  34.  -  Nodal  numbers  and  plate  numbers,  example  4. 


THETA=100 . 0     PHI=30 . 0 


FIGURE  35.  -  Deformed  and  undeformed  geometry  plot,  example  4. 
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Input  and  output  data  for  this  example  are  shown  in  tables  11  and  12. 
Figure  35  is  a  deformed  and  undeformed  geometry  plot,  with  a  deflection  magni- 
fication factor  of  DMAG  =3.0  and  orientation  angles  THETA  =  100°,  PHI  =  30°. 


TABLE  11.  -  Input  cards  for  example  structure  4 
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APPENDIX  A. --EXTENDED  STIFFNESS  MATRIX  FOR  A  SPACE -FRAME  MEMBER1 

Protective  canopies  can  possess  short,  deep  members  in  which  the  effects 
of  shearing  deformations  can  be  significant.   To  account  for  these  effects,  the 
12-by-12-member  stiffness  matrix  must  be  modified.  All  matrix  members  that 
induce  lateral  shearing  forces  are  extended  to  account  for  shearing  deforma- 
tions.  It  can  be  shown  that  this  extended  stiffness  matrix  for  a  space-frame 
member  is  — 
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0 

0 

0 
-6EIZ 

0 

2.   ° 

-I2EIY 
l3(l+2gY) 

0 
6EIY 

0 
0 

0 

-Glx 

L 

0 
0 

0 

0 

0 
Glx 

L 

0 
0 

0                 0 

o         6E'2 

L3(H-2g2) 

n           ,2E,v 

u              °      l?(l+2gz) 

O 1__          0 

L?(l+2gJ 

«jL           O              O 

0    «IY(.^) 

L(l  +  2gY) 

4EUI  +  -3T) 
0            °     U.^gJ 

ooo 

-6EI2 
on 

-6E.Y        ***2H) 

_ 1 0 

Lz(H-2gY) 

0                 O 

2EIY(I  -  gY ) 

— —I 1 —    o 

Ul+2gY) 

2EU(I  -  <JZ) 

0    1 ±- 

L(l  +  2gz) 

0                 0 

n       ~6E'z 

L^l-f^gy) 
0               0 

o       "6EI* 

l?(l+2gY) 

6EIZ 
■  ■—          o 

L2(l+2gY) 
-      0' 

0 

.)    ° 

"    I2EIY 
L3(l+2gy) 
0 
6EIY 

L2(l+2gz)        ~ 

0               0 

-I2EIZ 

L3(l+2gz)         ° 
-I2EIY 

0      L3(l  +  2gY) 

0               O 
-6Ely 

6E.Y     L2(1+2^ 
0   L?<|+2gY)      ° 

-^-         0            0 
2EIY(I-  gY) 
0      L(l+2gY)      ° 

n  2EU(l-gz) 
0             °  L(.  +  2gz) 

O       ~z * 

L2(l  +  2gz) 

6EIY 

—T. I 0 

L2(l+2gY) 

0                  O 

4Elv(l+-pI) 
— , — I— £ o 

L(l+2gY)           u     g 

4EI,(I+-?^  ) 

o    ^ ^ 

L(H-2gz) 

U      L2(l  +  2gY) 

6EI2 

-= —        0 

L?(l+2gz) 

l2(l+2gY) 

L2(l+2g; 

o  ° 

1  Sawyer,  S.  G.   CANOPY— A  Computer  Program  for  the  Structural  Analysis  of 
Space-Frame  Protective  Canopies.   BuMines  IC  8546,  1972,  53  pp. 
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,  6fEIv 

where  g     =  |  , 

y        GAX  L2 


6£EL 


f  =  form  factor  for  shear;  this  is  a  function  of  the  cross  section 
of  a  structural  member, 

L  =  length  of  member, 

Ax  =  cross-sectional  area  of  member, 

E  =  Young's  modulus, 

I  ,  Iz  =  moments  of  inertia  about  y  and  z  axes,  respectively, 

G  =  shear  modulus , 

and       1^    =   torsion  constant. 

If  g  and  gz  are  set  equal  to  zero,  the  matrix  reduces  to  that  for  a 
three-dimensional  beam  in  which  shearing  deformations  are  ignored. 
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APPENDIX  B.~ CONDENSATION  OF  DEGREES  OF  FREEDOM 

The  method  of  static  condensation1  is  used  to  delete  the  appropriate 
rotational  degrees  of  freedom  when  inserting  an  internal  hinge  or  a  plastic 
hinge  in  a  beam  element.   The  local  stiffness  matrix  and  load  vector  of  the 
element  must  be  modified  in  the  following  way  to  achieve  the  condensation. 

Partition  the  element  stiffness  equations,  so  that  [d2]  in  equation  B-l 
represents  the  degree(s)  of  freedom  to  be  condensed.   Thus,  if  an  internal 
hinge  is  being  applied,  {d^}    represents  the  rotational  degree  of  freedom  corre- 
sponding to  the  hinge;  if  a  plastic  hinge  is  being  applied,  {d^}    represents 
the  three  rotations  of  the  corresponding  beam  endpoint. 


^12 
^22 


(B-l) 


In  equation  B-l,    solve   for   {dg}    in  terms    of   [d^,   obtaining  equation  B-2: 
{d2}    =  [k^]-1    ({r2}    -   [JfejCdJ)  (B-2) 

Use  equation  B-2   to  eliminate   fdg]    from  the   other  equation  in  B-l   to  get 

OXi]    -   [KzY-^THKiV   K}    -  [rj    -   [k^k^r-frj  (B-3) 

The   coefficient    of   {dx}    in  equation  B-3    is    the  modified   stiffness   matrix   for  a 
beam  element   after   hinge    insertion.      The   right-hand   side    of   equation  B-3   repre- 
sents   the  modified    load  vector.      Thus, 


[kn  =  ([k,,]  -  [k^xk^rick^D 


(B-4) 


is  the  modified  beam  element  stiffness  matrix.   The  size  of  the  matrix  [k1  ]  is 
still  12  by  12,  with  a  row  and  column  of  zeroes  corresponding  to  each  deleted 
degree  of  freedom.   The  load  vector  (right-hand  side)  in  equation  B-3  will  be 
the  same  as  the  original  load  vector  unless  a  uniform  load  is  applied  along 
the  member;  for  this  case 


{r^}  =  [rj  -  [k^]^]-1^ 


(B-5) 


is  the  new  load  vector.   {r^}  is  expanded  to  12  by  1  by  adding  a  zero  element 
corresponding  to  each  deleted  degree  of  freedom. 


xCook,  R.  D.   Concepts  and  Applications  of  Finite  Element  Analysis 
John  Wiley  &  Sons,  Inc.,  New  York,  1974,  402  pp. 
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APPENDIX  C  —  PLASTIC  BENDING  MODULUS 

Combined  stress  (bending  and  axial)  on  a  cross  section  where  a  plastic 
hinge  forms  is  allowed  to  reach  the  material  yield  stress  over  the  entire 
cross  section.   Figure  C-l  shows  a  beam  member  cross  section;  figure  C-2  shows 
the  progression  of  yielding  across  the  cross  section  with  increased  loading. 
In  figure  C-2A,  the  extreme  fiber  only  has  reached  yield;  in  figure  C-2B,  part 
of  the  cross  section  has  yielded;  and  in  figure  C-2C,  the  entire  cross  section 
has  yielded.   The  plastic  moment  Mp  in  figure  C-2C  is 


where  Z   =  plastic  bending  modulus  (in3), 


(C-l) 


and 


a   =  material  yield  stress  (psi). 


Zx  is  the  first  moment  of  the  areas  of  the  cross  section  above  and  below  the 
neutral  axis,  about  the  neutral  axis. 

The  bending  shape  factor  for  a  cross  section  is  defined  as  the  ratio  of 
the  plastic  modulus  over  the  elastic  modulus ,  or 


SF  =  Zx  /Sx 


(C-2) 


—  X 


+ — *- 

■* 

■« 

■« 


1    2 
SX  "  6  BH 


a   =yield  stress,  psi 

y 


FIGURE  C-l.  -   Bending 
cross  section. 


FIGURE  C-2.  -   Stress  distributions  for  elastic,  partial 
plastic,  and  fully  plastic  moments. 
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Typical  values  of  the  shape  factor  are  shown  in  table  C-l. 

TABLE  C - 1 .  -  Shape  factors  for  regular  cross  sections 


Cross  section 

Rectangular  solid , 

Circular  solid 

Rectangular  tube 

Circular  tube , 

I-beam 


Shape  factor 


1.5 
1.7 

1.2  -  1.3 

1.3  -  1.4 
1.1  -  1.15 


Shape  factors  are  computed  in  subroutine  PROP  for  regular  cross  sections 
(types  1-5)  and  input  directly  for  type  6.   For  an  elastic  analysis,  where 
only  yielding  of  an  extreme  fiber  is  allowed,  the  shape  factor  is  taken  as 
1.0  for  all  cross  sections. 
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APPENDIX  D.— LIST  OF  SYMBOLS 

A  =  Joint  load  matrix 

ACX ,  ACY,  ACZ  -   Distances  from  neutral  axes  to  extreme  fibers 

AE  =  Equivalent  joint  load  matrix 

AML  =  Fixed  end  action  matrix 

AMR  =  Member  end  action  matrix 

AX,  Ax  =  Cross  sectional  area  of  beam  member 

B  =  Width  of  beam  member 

BR  =  Beam  member  shape  factor  for  plastic  moment 

CX,  CY,  CZ  =  Direction  cosines  for  beams 

D  =  Height  of  beam  member 

E  =  Young's  modulus  for  beams 

EP  =  Young's  modulus  for  plates 

F,  f  =  Beam  member  shape  factor  for  bending  shear 

G  =  Shear  modulus  for  beams 

GP  =  Poisson's  ratio  for  plates 
6fEI„ 


g 


GAxL2 
6fEI 


GAxL2 

IX  =  Torsion  constant  for  beam  member 

IY  =  Moment  of  inertia  about  y  axis 

IZ  =  Moment  of  inertia  about  z  axis 

L  =  Length  of  beam  member 

M  =  Number  of  beam  members  in  structure 

MBAND  =  Band  width  of  stiffness  matrix 
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NBLOCK  =  Number  of  equation  blocks 

NEQ  =  Number  of  structural  equations 

NEQB  =  Number  of  equations  per  block 

NJ  =  Number  of  joints  in  structure 

NRJ  =  Number  of  restrained  joints 

NUMPL  =  Number  of  plate  elements 

R  =  Direction  cosine  matrix  for  beam  members 

RL  =  Joint  restraint  matrix 

SIGAX  =  Axial  stress  in  a  beam  element 

SIGBMX  =  Total  maximum  bending  stress  in  a  beam  member 

SIGMA1,  =  Principal  stress  in  a  beam  member 
SIGMA2 

SIGMAX  =  Maximum  stress  along  \    axis  of  a  beam  member 

TAUMAX  =  Maximum  torsional  stress  in  a  beam  member 

TF  =  Flange  thickness  of  member 

TW  =  Web  thickness  of  member 

YSTRS  =  Yield  strength 

\  '  \   >  ^m  =  Beam-member-oriented  coordinate  system 

Xs  j  Ys  ,  Zs     =  Structure-oriented  coordinate  system 
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APPENDIX  E.— PROGRAM  LISTING 

i  (:****•*••*••****••••**<■ ••••#•»••••••••••«•  ••«••• ••»•«•••••••*••••• 

7  C       STRUCTURAL  ANALYSIS  OT  SPACfc  FRAME  TYPE  PROTECTIVE  CANOPIES 

3  C       U  S  I  N  C,  THE  STIFFNESS  M  E  TH  0  0 

H  C*  ..............  ...... ».».«.»......«...,... <...»...***.* 

5  C  MOOIFIED  DEC  19' 6  TO  INCLUDE  SAP  THIN  SHELL  ELEMENT 

6  C...«....... •>.............«•••->.•.. °... .............................. 

7  C  MODIFIED  JAM  |977  TO  INCLUDE  BUCKLING  ROUTINE 

8  f  .......  t ........  , 

9  C  MOOIFIED  MARCH  1978  TO  INCLUDE  PLASTIC  HINGE 
IC  C       IN  BEAM  ELEMENT 

!  I        C»»  .».♦.•  •*•••••••*,« .•.•••.•.♦*•»* .•.♦.* *.*.*. •.*,*. 

12  C       N1NCK  PERTAINS  TO  THE  BUCKLING  ROUTINE 

1  3  C 

14  PARAMETER  N  1  N  C  R  =  I  2 

15  INTEGER  Afl, RL, TYPES, TYPE, TY PEN, TOP 

16  REAL  'LOADx.LUAOY.LOADZ.lXM.IYM.UM.INCX.INCY.INCZ 

17  REAL  LSQ,L  ,  I  X  ,  I  Y  ,  IZ  ,MY  ,MZ 
IB  REAI.IXP,IYP,IZP 

!9  COMMON/MPROP/AXP,  IXP,IYP,!ZP,ACXP,ACYP,ACZP,FP,H,B,TW,TF, TYPES, BRC 

20  DIMENSION  1  YP£ < 20  I  ,  TYPEM (  I  00  I 

21  DIMENSION  AXM(20I,|XM(20),IYH(20I,IZM(20),ACXMI20),ACYM(20,HI, 

22  IACZM<20,4),FM(20),YSTRSM(20),t)MM(20l 

23  COMMON /BUCKL/lY(IOOI,!Z(IOO),X(100>,Y(100),Z(IOO),JJ(IUO),JK(100), 

2  4  1L(I00),WY(I00),WZ(I00),IND1(SI,|ND2(5),URMY(5,N1NCRI,URMZIS,NINCR» 

25  2,NIl(S),N|2(S),F(I00l,R(100,9l,AXtl00),IX(100l,WX(IU0).Y5TRS(l00l 

26  DIMENSION  RL < 600  )  ,  VMO Y ( 200  )  ,  A C X  (  1  00  )  ,  A C Y (  1  00  ,  4  I  ,  A C Z  !  1  00  ,  H  I 

27  DIMENSION  S M (  1 2 , | 2  )  ,  S MR  I  1 2  ,  1 2  I  ,  5MD (  1 2 , 1 2  I 

28  COMMON/LOAOS/A<600)»AML<IOO,12),LML(100),AE(600) 

29  COMMON/SOL  N/Dj(6aOI,AMRU2l,JAK(l2),TITLE(20) 

30  DIMENSION  SIGmAX(200),S1GAX(2U0»,5IGMAI(200>,SIGMA2(200),TAUMAX12  0 

31  IOI,S1GBMX(200).VMOY2!200),IPLI200I,PS1GAX(200),PSIGBM(200I,PTAUMX( 

32  22 00), PSIGMXI200),PSIGMl(200),PSIGM2(200),XP(IOOI,YP(100), 

33  3ZP(I00I,SMA(12,I2),SMA2(I2,I2),MPL(20>,FACT0R<20),RKI'I0> 

34  EMU  I  VALENCE  <C(20i>,SIGAXll)l,<C(40l),SIGHAX(|>>,<C(601),SIGBMX(ll 

35  1),(C(80I),TAUmAX(II),(C(100II,S1GMAH1II,(C(120I),SIGMA2(I)),(C(I4 

36  ?0I1,SMA(1,IM,(CI170II,SMA2(I,I)J 

37  DIMENSION  REAcl<20),REAC2(20),REAC3(20),REAC4i20),REACS(20>,REAC6l 

38  120  1 

39  DIMENSION  D JP ( 600  I  ,  1 R I  7 7 )  ,  R E A C  (  6 )  , B M (  1 00  ) 

40  DIMENSION  0EE<20),AMR2( 12), ANGLI4), ENERGY (20), PBMIIGOI 
4!  COMMON/ELPAR/  NI.N3.NEQ 

42  COMMON/JUNK/  DUH1IZ1I 

43  COMMON  /EM/   dUM?( 10821 

44  DIMENSION  LM(  ?4  )  ,  S (  24  ,  24  )  ,P  I  24  ,  4  I  ,  XMT (  24  ) 

45  COMMON  CI3000I 

46  HT0T=3000 

47  If  INV=0 
49  C 

49  C  INITIALIZE  AR HAYS 

50  C 

51  7'f  4  PRINT  300  3 

52  ISTOP=0 

53  F  A  C  T  0  R (  I  1  =  1  . 0 
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54 

55 
56 
57 
58 
09 
60 
61 
62 
63 
6H 
65 

6  6 
67 
68 
69 
70 
71 
72 
73 

7  4 
75 
76 
77 
78 
79 
80 
81 
82 

8  3 
84 

8  5 
06 
87 
88 
89 
90 

9  1 
72 
73 
94 
95 
96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 


WGTC'0.0 

ENERGT=0.0 

F ACTOT=0.0 
REACX=0.0 
RtACY=0.0 
REAC7=0.0 
I  WH  =  0 
I  COUNTED 
ILOAD=0 
LNLT=0 
LNPR*0 
945     I  COUNT* ICOUNT  +  1 
I  t  J  T  =  1 

I F (  ICOUNT .NE .  1  I 
3003  FORMAT  <  I H I  ) 
R  F.  W  I  N  0  2 
REWIND  3 
REWIND  4 
REWIND  10 
REWI ND  11 


GO  TO  954 


82 


Ht 


IFULOAD.EQ-Ol  GO  TO 
READ  PROGKAM  OPTIONS, 


0  4 


MULTIPLE  LOAD  CASES 


1  )   IF  I  NV= I 


READ  90,IPLAS,0LIM1T,J0INT,IDIREC,IPL0TI,IPL0TD,NVIEK,15HIFT,|ANGL 
IE  ,DMAG,  IPR  ,NBM 
IFINVIEW-EQ.O)  N  V  I  E  W  *  I 
IF(  I  PLOT  1  .EQ.|.0R.IPLOTD.EQ 
IF (  IPLAS.NE.  1  )   1PR  = 1 
I F ( DMAG.LT .0.000  I  I  DMAG=I.O 
1  PL  ASF'  =•  NO* 
IF  (  1  PLAS.NE .0  I 
I  P  L  0 1 P ■ '  NO* 
IF (  IPLOT  I  .NE.ol 
I  P L  0  T  Q  =  •  NO* 
I F  (  IPLOTD.NE.O  > 
N0  0  6^J0INT*6-5 
I  F  ( I01REC.EQ.2l 
I  F  < I0IREC.EQ.3> 
IF (  1  ANGLE. EQ.O  I 
1  F  (  I  ANGLE. EG). 0  » 
PRINT  3003 

PRINT  310,  1PLASP,  1PL0TP  ,  IPLOT 
IF  (  1PLAS.EQ.  I  )  GO  TO  954 
DO  82  JS=  i  ,M 
BM  t  JS  1  =  1  .0 
GO  TO  954 
CONT 1NUE 

MBAND  =  0 
NUMEL   =  0 
SET  MULTI-LOAD 
LOAD  CASES  A  K  E 
LL  =  I 
DO  131   I = I , 100 


IPLASP=' YES* 

|PL0TP« 'YES' 

I  PLOTQ=»  'YES' 

N0D6=N0D6*I 
N0D6  =  N  006*2 
THETA=  1  20.0 
PHI »30.0 


iNBM 


CASE  PARAMETER  (SAP)  EQUAL  TO  ONE 

TO  BE  SOLVED  ONE  - A T- A  -  I  I  ME  IN  CANOPY 
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108 
109 
1  10 
I  I  1 
I  I  2 
I  1  3 
1  14 
I  15 
I  I  6 
1  I  7 
I  18 
1  19 
120 
1  71 
122 
I  2J 
I  24 
125 
126 
127 
128 
I  29 
130 
131 
132 
I  33 
1  34 
135 
I  36 
137 
1  38 
139 
1  MO 
141 
1  M2 
143 
1  44 
I  45 
1  46 
I  47 
1  48 
1  49 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
1  60 
Itl 


I  3  1 


132 


1  38 


I  47 

C 

C 

c 

647 

648 

C 
C 
C 
C 
C 


90 


WX (  I  1  =0. 
WY ( 1 ) =0. 

wz ( I )=o. 

LML (11=0 

IF ( 1 .IE. 77 )  I R(  I  1=0 

00  131  J=l  ,  12 

1  F  <  J  .  L  E  .  9  )  R(I,J)=0. 
IF  I  I  .LE.  12  >  SMU  ,  J)=0. 
AML (  I  , J  I =0. 

DO  132  1=1 ,600 
A ( I ) =0. 
AC  1  1  1 =0. 
RL(  I  1=0 
DJfM  1  1=0-0 
COMT I NUE 
DO  138  1=1,200 
V  M  0  If  (  ]  1=0.0 
VH0Y2 (  I  1=0.0 
I  PLy(  I  )=0 
PSIGAX (  I  »=0.0 
PSIGBMl 1 1=0.0 
Pf AUMX  I  I  1=0.0 
PS  IGMX (  1  I  =0.0 
PS  IGH 1  (  1  1 =0.0 
PSI GM2 (11=0.0 
DO  147  K= I , 20 
REAC  I ( K (=0.0 
REAC2 ( K  )  =0.0 
REAC3 (K ) =0.0 
REAC4 ( K ) =0.0 
REACbl K 1=0.0 
REAC6IK 1=0.0 

STRUCTURE  DATA 

READ  647  ,  (  T  I  TLE  (  JQ  1  ,  JQ=1  ,  I  4  1 
FORMAT (  13A6.A2  > 

PRINT  648 ,  ( T I TLE ( JR 1  ,  JR=  1  ,  I  4  I 
FORMAT (// ,30X , '  -  -   P  L  A  S  T 
2-  -  ♦,//,!  3A6  ,  A2 1 


I  C 


CANOPY 


RESULTS 


READ  PROGRAM  OPTIONS 

ULlMIi:  MflX  DEFLECTION     JUINT'.NODE  WITH  LIMITED  DEFLECTION 
IDIREC:  GLOBAL  DIRECTION  OF  LIMITATION,   1=X,2=Y,3=Z 

READ  90,lPLAS,DLlMn,JOINT,IOIREC,lPLOTI,IPL0TD,NVIEW,lSHIFT,IANGL 
I  E  ,DMAG  ,  IPR  ,NBM 

FORMAT!  15,F10.2,7I5,F10.2,215) 

IF(NVIEW.EQ.O)  NVIEW=| 

IF(  IPLOTI.EQ.I.OR.IPLOTO.EQ.l  1   IFJNV=1 

!  F  (  I  P  L  A  S  .  N  E  .  1  )  I  P  R  =  1 

I  F  ( UMAG.LT .0.000 1  )  DMAG=I.O 

IF (  IPLAS.Nt .  I  l   IPR=I 

I f  (  I  ANGLE  .EQ.O  I   THETA=120.0 
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1  A2 

1  6  J 

I  64 
16b 
I  66 
167 
I  68 
!  69 
170 
I  71 
1  7? 
173 
1  74 
1  75 
176 
177 
1  78 
I  7? 
1  00 
131 
I  8  2 
IB3 
1  04 
1  85 
186 
187 
I  88 
189 
i  90 

m 

1  92 
193 
I  91 
195 
196 
197 
198 

1  99 
200 
201 
20? 
203 
204 
205 
206 
207 
208 
209 
21C 
21  1 

2  1  2 
213 
2  I  4 
215 


I  r  I  I  A  N  G  L  E  .  r.  ■«  •  0  )  P  H  I  =  3  C  •  0 

N0D6=J0INT»6-5 
IF  (  It)  1 1?  E  C  .  E  Q  .  2  I 

IFIlDIREC.EC3.3l 
I  P  L  A  S  P  =  '  N  0  • 
I  F  II  I' L  A  5.  ME  .  0  I 
I  P  L  0  T  P  =  •  N  0  • 
IF1  I  PLOT  I .NE.rjl 
1  I'L  0  r  Q=  •  NO' 


IF  I  IPLOTD.NF .0 )   I  PL  0 T g = ' YES* 

READ  I  0  0  •  N 5  T  ,  NJ»NNCiNMTP,M,NMC»NUMPLfNRJ 

M2=M»2 

rnDMATIofr    ir-in   n   I-  r.   }  I 


N0D6  =  N0[)6+I 

N0D6=N0D6+2 

IPLA5P='YE5' 
I  PL0TP= • YE  S ' 


,  NLS.E  .  G.EPtliP 


BLANK  ENTRIES 


310 


X  ,  '  b  H  E  A  '<  MUnULUb  F  0  K  Bt 

TES=',F10.0,//,I5X,'P01-. 

I  HINT  310,IPLASP,IPLOTP,IPLOT'J,NBM 

FORMAT  <  /// , 
I  '  •»    PROGRAM     OPTIONS',// 

1LYSIS:  '  ,2X , A3  ,// ,  1  5X  ,  'PLOT  UNOEFORMED  GEOMETRY:', 
21  DEFORMED  GEOME T R Y  I  •  ,  2X  ,  A  3  ,  / /  ,  1 5 X ,  • NO .  OF  BUCKLI 
312) 

1FIN.GT.600)  GO  rO  1192 


.EP.GP 

SX, 'NUMBER  OF  JOI 

,  I  4  ,//  ,  1  5X  ,  'NUMB 

ELEMENTS*'  ,14,// 

I  H  ,//  ,  1  5X  ,  'NUMBER 

NED  J0INTS=  »  ,  1 4  ,  / 

NUMBER  OF  StRUCTU 

AMS=',FI0.0,//,15 

S  MODULUS  FOR  PLA 

2  I 


,  I 5X  ,  'PLAST  IC  ANA 
2X,A3,//,15X,  'PLO 
NG  ELEMENTS: • ,2X , 


3378 


V   I  A  T   I  0  N  S  ' 

T 1ES  TABLE'  ,  //  ,  10 

NODAL  NUMBER  OF  B 

IOX  ,  '  1 X  =T0K5 10NA 

INERT  I  A  .LOCAL  Y- 

-AX1S',/,I0X,'AA 

DI SI  ANCE  10  EXTR 

F  H'FK.MIZI'./.IO 

=GEO METRIC  FORM  F 

,  S  T  I  C  To  ELASTIC  B 

;'_.,PSI*,/,10X,'L 

if'./.iox.'cy  - o i r 


108 


716 
21  7 
2  I  e 
219 
220 
221 
772 
223 
2  2'f 
225 
226 
227 
228 

22? 
230 
231 
2  32 
233 
234 
235 
236 
237 
238 
23? 
210 
2  4  1 
24? 

2 '13 
2H4 

245 
2  4  6 
247 
2  18 
2 '(? 
250 
251 
252 
253 
2  5 'I 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
76? 


MECT 1 °N  C0^  I  Nt  ' 
3379   FORMAT ( //  ,5X  ,  • 

1  //  ,  1  OX  f  •  S  IGP.MX 

2  ,  *S  IGAX  =  AX  I  A|_ 
3, 'S1GMAX=BENDI 
3* ./ i IOX, 'SIGMA 
4  E  STRESS',/, 10 
5RESS'  ,/,  IOX,  'H 


,/,IOX,«cZ  »Dl«ECNON  COSINE') 

ABBREVIATIONS  USED  IN  BEAM  MEMBER  STRESS  TABLE', 
"■COMBINED  BENDING  STRESS  ABOUT  PRINCIPAL  AXES',/,  IOX 
STRESS'  ,/,  IOX  ,' T AUMAX*TORS 1 ONAL  SHEAR  S T RE  55  '  ,  /  ,  1  0 X 
NG  PLUS  AXIAL  STRESS'  ,/,  IOX  ,  'SIGMA  I  =PR  INC  IPAL  STRESS 
2  =  PRINC1PAL  STRESS'  ,/,  IOX  ,  'VM!SES*VON  MlSES  EFFECTIV 
X  ,  • VM 1 SES/ALL0fc=RAT I  0  VON  MISES  TO  MATERIAL  YIELD  ST 
INGE  =M0N  ZERO  ENTRY  DENOTES  PLASTIC  HINGE') 


INPUT  COORDINATES  OF  JOINTS 


IOJ 


1M? 
102 


301 


1 

i ;  4  s 

273 


DO  102  JO* 1 ,NN 
Rb.AU  103,  JP.J 

FORMAT ! 2I5.6F 1 
IF  <  JP.EQ. Jl  )  G 
I N  C  X  = ( X ( J  |  )-X( 
I  N  C  Y  =  (  Y  (  J  I  I  -  Y  ( 
1 NCZ'I  Z ( Jl  l-Z ( 
IF  ( JINCR.LT.  1  ) 
DO  142  J  =  JP,JI 
X  (  J l*X ( JP  i ♦ INC 
Y  (  J  I  *Y I JP  I  +  I NC 
7  (  J)=Z ( JP l  +  INC 
CONT I NUE 
CONT INUE 
M  P  R  I  N  T  =  0 
DO  1745  J  = 1  , N  J 
I F ( MPRINT.NE.O 
PRINT  3003 
PRINT  30  1 
FORMAT  I  22H 
1      Z  ) 
MPR  INT>--50 
MPRI NT=MPR INT- 
PRINT  293  ,  J  ,  X 
FORMAT (  I  5  ,  3F  I  0 


i,(X(JP|,Y(JP),Z(jPI,X(Jl),Y(JI),Z(Jl)),JlNCR 

0.3,151 

0  TO  102 

JP  )  ) / ( Jl -JP ) 

JP) )/l Jl-JP) 

JP )  ) / ( JI-JP  ) 

JINCR=  1 
,  JINCR 
X« ( J-JP  | 
Y»( J-JP  ) 
Z» ! J-JP  ) 


)  GO  TO  I 


COORDINATES  OF  J0INTS,/i33H  JOINT 


(J),Y(J),Z(J) 
•  2  ) 


INPUT  AND  CALCULATE  MEMBER  5ECTI0N  PROPERTIES  AND  YIELD  STRENGTH 


477 


M7H 


48  7 
701 


1F(NMTP.LE»0>G 
DO  36  4  111  =  1  , M 
READ  4  77,  I  ,  T  Y 
FORMAT (  2  I  5  ,F  I  0 
IF  < TYPE (  I  )  .NE. 
READ  478  ,  AXP  ,  I 
1 F ( BRC  «LT .0.00 
FORMAT(7FlO.J| 
READ  4  87,  ACYm 
I  A  C  Z  M 

F0RMATI8F|0.3) 
GO  TO  363 
TYPE5=TYPE(I) 
CALL  PROP 
ACYMI  I  ,  1  )=ACYP 


0  TO  365 
MTP 

PE (  I  )  ,  YSTRSMI  I  I  ,H  ,H  ,  TW,  TF 

.0,4F  10.4  ) 

6)  GO  TO  701 

XP ,  I VP ,  I ZP , ACXP  ,FP  ,BRC 

1  )  BRC=  I  .0 

l|,I),ACZMiI,l),AtYM(I,2),ACZM(l,2),ACYM(I,3) 
(  I  ,3  )  ,  AC YMI  I  ,4  )  ,  ACZMI  1  ,  4  ) 


109 


270 
27  I 
27? 

27  3 

2  7H 
275 
276 
277 
278 
27? 
280 
281 
282 

28  3 
20M 
280 
286 
207 
288 
289 
290 
291 
292 
293 
294 
295 
796 
297 
298 
299 
300 
301 
302 

30  3 
30M 
305 
306 
307 
308 
309 
310 

31  I 
312 
313 
3M 
315 
316 
317 

3  1  8 
319 
32C 
321 
322 
323 


36» 


36  1 
365 
C 

c 

t 


105 


2  i  oh 

1  0* 

c 
c 
c 


A  C  Z  M  ( 
AXM  I  I 
I  X  H  (  1 
1  YM(  1 
I  ZM  <  I 
ACXM  ( 
FJ  H  M  (  1 
FM(  I  )=FP 
CONT  I  N  U  E 


,  I  >  =  ACZP 

=  AXP 

=  1XP 

*  I  YP 

=  1  ZP 

I  =ACXF 


INPUT  MEMBER  DESIGNATIONS  AND  ORIENTATIONS 

IK(NMOLE.O)  GO  TO  931 

H  P  R  1  N  T  =  0 

DO   I  OH   111  =  1  iNMC 

INPUT  FOR  RELtASES  ARE  READ  FROM  MEMBER  DESIGNATION  CARDS 
RELEASES  ARE  REFERRED  TO  THE  MEMBER  COORDINATE  SYSTEM 
THE  ARRAY  iR  KEEPS  TRACK  OF  ALL  MEMBERS  WITH  RELEASES  AND  WHICH 
ROTATIONS  ARE  AFFECTED  IN  EACH 


READ 
FORM 
I  HT  = 
IF  (  I 
IR  (  I 
IR(  1 
IR  (  I 
I  R  (  I 
IH(  1 
IR  (  I 
IR(  I 
I  WH  = 
I  NT  = 
CONT 
I  F  (  A 
FORM 


105 
AT  (  1 
I  XI* 

HT  .E 
NT  )  = 
NT*  1 
NT  +  2 
NT  +  3 
NT*4 
NT +  5 
NT-1  6 
IWH* 
INT< 
I  flUE 
A  .EQ 
AT  (  3 


i  IP  .  Jl 

3151 

1  Y  I  ♦  I  Z 

O.OIGO 

IP 

)  =  I  X  1 

!  =  1  Y  1 

>*!  Z  I 

1  =  1X2 

I  =  I  Y2 

I  *  I  Z2 

I 

7 


.  1  )  READ 
F 10.5) 


,JJ(|P),JK(IPI,AA,MTP,MlNCR,IXi,IY|,IZl,IX2,IY2,IZ2 

I  +  I X2+  I  Y2+ I Z2 
TO  2I0H 


108,XP|IP)»YP(IP),ZP(IP) 


2H0 


BEAM  ELEMENT  GENERATION  LOOP 

DO     I  OH     I  =  I P , J | 

JJ(  1  }=J J(  IP  )  >  (  1  -IP  )  »MINCR 

JK(  I  )=JK(  |P)  +  (  I  -  1  P  )  •  M  I  N  C  R 

[FIJJIII.LT.JkHII     GO     TO     2H0 

J  =  JJ (  I  I 

JJ(  I  )  =JK  I  1  I 

JK ( 1 ) =J 

XP I  I  1  =XP (  |P  ) 

YP(  I  )=YP  (  |P  ) 

ZM  1  )=ZP(  IP  ) 

CUNT I NUE 

JK  1  =JK  (  I  » 

JJI=JJ(  I  ) 

XCL  =  X ( JK  1  I  -X  (  JJ I   ) 


110 


324 
325 
326 
327 
328 
32? 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
34  I 

342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 

353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 


847 


YCL--Y  UKI  )-Y(  JJI  ) 

ZCL  =  Z I JK 1  )-Z I jJl  ) 

L  (  I  )=SQRT ( XCL»«Z*1 

CX*XC|_/L  (  I  ) 

CT  =  YCL/L (  I  ) 

CZ*ZCL/L  (  I  I 

AX(  I  )=AXM( MTP  ) 

I  X (  I  )  =  I  XM( MTP  ) 

IYII)=IYM(MTP) 

I  Z(  I  )  =  1  ZMIMTP  ) 

B  M  (  I  )  =  B  M  M  (  M  T  P  ) 

PBM ( I ) =BMM ( MTP I 

IF (  IPL*S.NE.  1  )  BM(  I  )  =  1  .0 

ACX  (  I  I  =ACXM  I  MTp  ) 

t  ype.mi  i  >  =  type  (  mtp  ) 
top  =  ttpem( 1  ) 

IC0R=l 

I  F  I  T(0P.LU.6  )   jC0R=4 

DO  847  J0E=1  :  ICOK 

ACY(  I  ,J0E)=ACYM(MTP,J0E) 

ACZ(  I  ,  JOE  )=ACzM(HTPi  JOE  1 

F  (  1  )  =  F  M  (  M  T  P  ) 


:L»»2+ZCL»«2 I 


ro  z 


302 


<-<  v.  *.  .  ■  p«..i_  T   -  "  • 

F  (  1  )  =  F  M  (  M  T  P  ) 

YSTNSI  I  )=-Y5TR5M(MTP) 

IF(MPR1NT.GT.0>  GO  T( 

PRINT  3003 

PRINT  302 

rnRMAT<48H  MEMBER  DE  5  I  GN  A  T  I  ONS  ,  PR  OPE  R  T  1  f.  S  ,  A  ND  OR  I  E  N  T  A  T  1  OMS  ,  /  1  1  09H 
IMEMBER  JJ     JK     AX      IX      1Y      \l  AA   ACX     ACY     ACZ      F 

2      BM   YIELD      L        CX       CY       CZ) 

MPR I  NT  =50 

Y (  I  )  ,  I  Z (  I  1  ,  AA  ,  ACX (  I  I  , 

)  .  1  (Il.rx.rr.r/ 


MPR I  NT  =50 
2     MPR I NT=MPR INT- I 

PRINT   106,   1  ,  JJ(  I  )  ,  JK t  I)  ,  AX  (  I  )  ,  I  X (  I  )  ,  1  Y (  I  )  ,  I Z (  I  1  ,  AA  ,  AC 
1    ACY(I,l),ACZ(I,lliFII),BM(l),YSTRS(l),L(I)tCX,CY,CZ 

F0RMAT(3I5i4F6«2,I4,bF6.?,F8.0,4F7.2> 

IF  (  ICOR.EiJ.  1  I  GO  TO  925 

DO  924  JI G=2 , 4 

MPRINT=MPRINT-1 

IF ( MPR I  NT .LF  .  J t  MPRINT'O 
2'\     PRINT  926,  ACYU,JIG),ACZ(1,JIG) 
26  F0RMAT<49X,2F6«2> 
25  CONTINUE 


CALCULATE  ROTATIONAL  MATRIX 

Q  =  5t)RT(CX»»2  +  cZ»»2) 
IF  (  AA.NE.  1  1  GO  TO  107 

JJI =JJ(  I  ) 
XPS  =  XP (  I  )  -X  I JJ  1  ) 
YP5  =  YP  I  I  )-Y ( Jjl  I 
ZP5  =  ZP(  I  l-Z(Jjl  I 
107   IF IQ.GE. 0.001  )  GO  TO  109 
R(  I  ,4  )=-CY 
R(  I  ,2  )=CY 
R  (  I  ,  9  I  =  1  .  0 


Ill 


378 
37? 
380 
■<8| 
382 

38  3 
38M 
385 
306 
387 
388 
389 
3  90 
391 
392 
393 
394 
395 
396 

39  7 
398 
399 
MOO 
M0  1 
MO? 
M03 
MOM 
MOB 
«06 
M07 
MOB 
M09 
M10 
Ml  I 
M12 
M13 
Ml  M 
MI5 
M  I  6 
M  I  7 
M  18 
'I  !  9 
M20 
M2I 
M22 
M23 
M2M 
M25 
M26 
M27 
M28 
M29 
M3G 
M3I 


IF ( AA«NE. I )  GO  TO  10M 

5Q  =  S<JRT(XPS»«2  +  ZP5«»2I 

SINA=ZPS/SQ 

COSA^-XPS^CY/sQ 

R  I  I  ,M  )  =-C  Y»CCJSA 

R ( 1 ,6  I =S IN* 

R  < I ,7)=CY«S1NA 

R<  I  ,9 1=C0SA 

GO  TO  10M 
I  09  R<  I  ,  1  |^CX 

R  (  !  ,  I  )  =  C  Y 

R(  I  ,3  l=CZ 

R ( I , M ) =-CX»C Y/Q 

R I  I  ,5  )=Q 

R ( I ,6 ) =-CY»C//Q 

R  (  1  t  7  I  *  -  C  Z  /  Q 

iv  (  1  ,  9  |  =  c  X  /  q 

I  F ( A  A  .  N  E  .  1  )  GO  TO  I0M 

YPG  =  R(  I  ,  M)  •XP5*RI  I  |5)»YPS*R|  I  ,  6  I  »ZPS 

ZPG  =  R(  I  ,7)»XP5  +  RI  1  ,  8  >  •YJ'S  +  RI  I  ,  9  I  »ZPS 

5Q  =  S(JRT(YPG»«2  +  ZPG**2) 

COSA=YPG/SQ 

SINA=ZPG/SQ 

Rl  I  ,M)  =  (-CX»CY»C05A-CZ»S!NAI/;i 

R I  I  ,5  ) =Q»COSA 

Rl  I  ,6>  =  <-CY«CZ»C0SA  +  CX»SINAI/(J 

R(  I  .7)*(tX»CY*SlNA-CZ»C05AI/(J 

R ( I ,8 ) =-0»5 INA 

R(  I  ,9)  =  ICY»CZ»SlNA  +  CX«C0SA)/tJ 

CONT INUE 

GENERATE  STIFFNESS  FOR  EACH  BEAM  ELEMENT 

CONT I NUE 
1=0 
INT=  I 
WGTC=0. 
1  =  1  +  1 

I F (  I  .GT .M  )  GO  TO  93  1 
WGTC  =  WGTOL(  I  |»AXt  I  > • .28  36 
357  CONTINUE 

Jl  *6«JJ<  1  )-5 

J  2  =  6  •  J  J  <  1  |  - M 

J3=6» JJ<  I  )  -3 

JM  =  6» JJt  I  I  -2 

J5=6«JJ(  I  I  -  I 

J6=6» JJ(  I  ) 

K I *6»JK (11-5 

K2=6« JK ( I |-H 

K3=6« JK ( I ) -3 

KH=6« JK (  I  )  -2 

Kb  =  6» JK (  I  )  -  I 

K6=6» JK (  I  ) 

GY=(6.«FM)»E«IY(II)/(C*AX(Ii»HI)»*2l 


lOM 
C 
C 
C 
95M 


932 


112 


4  3? 

433 
'13  4 
435 
436 
437 
438 
4  39 
H40 
44  I 
442 
443 
444 
445 
446 
44  7 
448 
4  49 
450 
451 
45? 
453 
454 
455 
456 
457 
45P 
459 
460 

461 
'•6  2 
463 
464 
465 
466 
467 
466 
469 
470 
471 
4  72 
473 
474 
475 
476 
477 
4  78 
479 
480 
481 
482 
483 
484 
485 


20  4 
C 

c 
c 


G£*I6»*MI>*E«IZ(I>>/(G*aX(II«L(I)**2) 

CFY1«1./«|.+2.*GYI 

CFZ!*1./(|.*2.«GZ) 

CFY2=( 1 .+GY/2. >»CFYI 

C  F  7. 2  ■  (  I  .  *  G  Z  /  2  .  I  •  C  F  Z  I 

CF Y3=(  I  ,-GY  )  «CF Y I 

CFZJ=1  I  .-GZ  )  •cfZ I 

5CMI-(E»AX(i))/L(I) 

5CM2=|I2.«F«IZ<I)«CF7.  1  I  /  L  I  I  )  •  •  3 

5CM3=(6.«C»IZ(  I  ) »CF  Z  1  )/Ll  I  >  •  «2 

S  C  M  4  =  (  I  2  .  • E  •  I  Y  I  I  )  •  C  F  Y  1  )  /  L  <  I  >  •  •  3 

5CMb=(6.»E»IY(  I  I »CF Y  1  I  /I  I  i  )  ••?_ 

SCM6=  I6MXIIII/LII) 

SCM7=(4.»E»Hr<l)"CFY2)/LII) 

5CM8=(2.»E«IY(  I  )  »CFY3 )/L I  I  ) 

SCM9=(4.»l»!Z(  I  )»CFZ2)/L(  I  ) 

5CH10=(2.»E»IZl  I  )»CFZ3)/L(  I  ) 

SMI  I  ,1  1  =  S  C  M  I 

SM(7,7I=SCM1 

SMI  I  ,  7  )  =-SCMl 

SMI  2  ,2  I =SCM2 

SH(B,8)=SCM2 

SM(2,8)*-5CH2 

SM(2,6)=SCM3 

SM I  2 ,  I  2  )  =SCM3 

SMI  6  ,  8  I  =-SCM3 

SM  I  8  ,  I  2  )  =-SCM3 

SM(3,3)=SCM4 

5M I  9  ,9  I  =SCM4 

S Ml  3 , 9 ) = - S C M 4 

SM(3,5)=-SCM5 

SMI  3  ,  I  I  )  =-SCM5 

SM(4,4)=SCM6 

SMI  4  ,  I  0  >=-SCM6 

SMI  10,  10  )  =SCM6 

SM I  5  ,  5  )  =SCM7 

SMI  1  1  ,  I  1  ) =  SCM7 

SM I  5 ,  1  I  )  =5CM8 

SM I  6  ,  6  )  =SCM9 

SMI  1 2 ,  I  2 ) =  5CM9 

SMI  V  ,  I  1  )  =SCM5 

SMI5,9)=SCM5 

SMI6,  I  2  )  =  S  t  M 1 o 

DO  204  11=2,12 

111=11-1 

DO  204  JJJ= 1  ,  I  I  I 

S  M  I  1  I  ,  J  J  J  )  =  S  M  (  J  J  J  ,  1  1  I 

RELEASE  ROTATIONAL  DOFiINTERNAL  HINGE 

I F I  IR I  I  NT  )  .NE .  1  I  GO  TO  3900 

DO  3895  I  CT  =  1  ,6 

IF  I  IR I  I  NT  *  ICT  )  •EQ.O  )  GO  TO  3895 
I NR= I NR+  I 


113 


186 

187 

188 

189 

490 

19  1 

192 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

51  I 

512 

51  3 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

5  39 


3  90| 


3902 
3903 
3  90M 


39U5 

3906 
3907 


1  7  70 


1  7  8IJ 
3895 

3900 
C 
C 
C 


770 


771 


772 

J206 


IFIICT.EQ.il 
IF  I  ICT.EQ.2  I 
IF  I  ICT.EQ.3I 
IF<  1CT.EQ.H  I 
IF«ICT.EQ.5) 
IF  (  ICT.E0.6I 
1T»I0 

JT  =  4 

5M (  I T  ,  I T  1 =0.0 

SMI  I  r ,  JT  1=0.0 

SMI JT  ,  I T  1=0.0 

GO  TO  3895 

JT=rS 

GO  TO 

JT  =  6 

GO  TO 
I  T=4 

JT  =  IO 

SM|  IT 

SMI  IT,  JT  NO 

SM ( JT  ,  I  T  I  =0 

GO  TO  3895 

JT»  I  I 

GO  TO  3907 

JT*  I  2 

CONTINUE 

DO  1770  Jx  I 

DO  1770  K=  1 

SMA  I  J  ,K  1  =5M ( J  ,K  ) 

0  0  17  8  0  J-  1  ,12 
DO  1  7  80  K  =  l  ,  1  2 
SM(J,Kl=SMA(J,K) 
CONT INUE 

1  N  T  =  I  N  T  +  7 
CONT IN OF 


GO 

TO 

3901 

GO 

TO 

3902 

GO 

TO 

3903 

GO 

TO 

3901 

GO 

TO 

3905 

GO 

TO 

3906 

3907 


3907 


I  T  1=0 


12 
12 


•SM(J,JT)»SM(JT,K)/SM(.JT,JT1 


RELEASE  ROTATIONAL  OOF, PLASTIC  HINGE 

IHI 1=  I • Z— 1 

I  H  I  2  =  I  •  ? 

IF  1  ICOUNT  .EQ.  1  IGO  TO  3205 
IFI  IPLl  1HI1  I.EQ.O.ANO.IPLI  IH 
IF (  IPL I  IHI  1  I  .E«  .0  )  GO  TO  320 
00  770  1=1,12 


3205 

LIIHI2  1.EQ.0)  GO  TO  3205 


770  1=1,12 
uu  770  J= 1  ,  I  2 
S  M  A  I  I  ,  J  I  =  S  M  (  I 
DO  77  1  1=1,12 
DO  77  1  J=  1  ,  1  ? 
SMA2I  I  ,  J  I  =  S  M  A  (  I  ,J 
'   1  =  1,12 


DO 
DO 


1»»SM(1,J)/SM(4,4) 

(5,J)/SMA(5,ij) 


JI-SMI  1 

)  -SMA  11,51  «SMA 


00  772  1=1,12 

DO  772  J=  1  ,  I  2 

SMI  I  ,  J  )  =  S  M  A  2  I  |  ,  J  1  -  S  M  A  2  !  I  ,  6  I  •  S  M  A  2  I  6  •  J  1  /  S  M  A  2  (  .'.  ,6) 

IF  I  IPL (  IHI 2  I  .EQ.O  )  GO  TO  3205 

00  780  1=1,12 
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5H0  DO  780  J=l  ,  12 

541  780     SMA (  I  ,  J)-5M(  I  ,  J  ) -5M(  I  ,  10)  •SMI  10,  J  )/5M(  10,  101 

542  DO  78  1   1=1,12 

543  DO  781  J=l  ,  1  2 

544  781     SHA2I  I  t J>-SHA(  I  ,  JI-SMAt 1  ,  I  I  )«5MA(  1  I  ,  JI/SMAI  1  I  ,  I  I  | 

545  DO  7821  =  1,  12 

546  DO  782  J=  1,12 

5  4  7  732     SM(1,JI=SMA2(1,J)-5MA2(I,12)»5HA2(12,JI/SMA2(12,12) 

548  3205   CONTINUE 

51 V  WHITE  118)   (  IS"!  I  , J)  . I "1  »  12  )  ,  J  =  l  ,  1 2  ) 

550  DO  205  K=  1  ,4 

551  DO  205  J=  1  ,  t  2 

552  SMR(J,3»K-2)=5M<J,3»K-2)»R(I,ll*SM(J,3»K-l>»RII,4)+SMlJ,3»K) 

553  1  »h (  I  ,  7  ) 

55H  SMR(J,3»K-l)=sM(J.3»K-2)»R(l,2)+SM(J,3»K-l)»R(l,5l+SMlJ,3»K) 

555  1  »R(  1  ,81 

556  SMR(J,3»K)=SM(J,3»K-2)»R(I,3)+SM(J,3«K-|I»R<1,61+SM(J,3»KI»R<I,9I 

557  205  CONTINUE 

558  DO  206  J=  I  ,  1 

559  DO  206  K  =  1  ,  I  2 

560  5riDl3»J-2,KI=R(I,ll»SMR(3»J-2,K|+RII,4)»SMR(3»J-l,K)+R(I,7)«3HR( 

561  1  3»J,K  1 

562  SMD(J«J-l,K)=RtI,2)»SMR(3»J-2,K)+R(l,5l»5MR(3»J-l,K)+R(|,8)»SMK( 

5  6  3  I  3  •  J  ,  K  1 

56  4  SMD(3»J,K)=R(!»3)*SMR(3«J-2,K)*R(I,6I»5MR(3»J-1,K)+K(1,9)*SMR( 

665  1  3«J,K) 

56  6  20  6  CONTINUE 
567  JAK (  I  1 =JI 
5  68  J  A  K  (  2  )  =  J  2 
5  6  9  J  A  K  (  3  )  =  J  3 

57  0  J  A  K  t  4  )  =  J  4 

571  J  A  K I  5  I =  J  5 

572  JAK ( 6 ) = J6 

573  JAK ( 7 1 =K I 

574  JAK ( 0  l  =K2 

575  JAK ( 9 ) =K3 

576  J  A  K (  1 0 ) =  K  H 

577  JAK  I  I  I  I =K5 

578  JAK (  I  2  1  =K6 

579  CALL  BEAM  (  J  A  K  i  5r-0  ,  Mil  A  NO  ) 

580  GO  TO  932 

581  931  CONTINUE 

582  C 

583  C     WRITE  JOINT  COORDINATES  INTO  XP,YP,ZP  ARRAYS 

584  C     FOR  DEFORMED  PLOTS 

585  C 

586  IFtlCOUNT.GT.il  GO  TO  3678 

587  DO  3578  1 UP= I  ,NJ 

588  XP  <  I  UP  )  =X (  IUP  ) 

589  YP(1UP)=Y(IUP) 

590  3578   ZP(  I  UP  >  =  Z (  1UP  ) 

591  3678   CONTINUE 

592  C 

593  C  CALL  TPLATE  T  ,j  FORM  PLATE  ELEMENTS 
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59  4 
595 
SV6 
597 
598 
599 
600 
601 
602 

60  3 
60') 
605 
606 
607 
608 
609 
6  I  0 

61  I 
612 
613 
6  1  4 
615 
6  I  6 
617 
61  8 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
6  32 
633 
631 
635 
636 
637 
638 
639 
6 '10 
64  1 
642 
643 
6 'I  4 
645 
646 
647 


45  1? 


IFINUMPL-GT.O.AMD.ICUUNT.EQ.l.AND.ILOAD.NE.II 
•CALL  TPLATEINUMPLiX,Y,Z,NJ,MHAND,EP,Gr,AREAT) 
VTPL'AREAT 

IF(NUmPL.GT.0.An|).|C0UNT.E(J.1.AND.IL0AD.NC0) 
IF(NUMPL.EQ.O.OR.ICUUNT.EQ.I)  GO  TO  4  5  2  1 
DO  '\S/0     JPT  =  I  ,NUMPL 

READ  I  I  1  )  LRO,nO,(LMU),I  =  1.NO),((S(1,J) 
1  ,  ND  1  ,  J=  1  ,  4  )  ,  (  X-IT  (  I  »  ,  I  =  1  ,  NO  ) 


GO  TO  45  19 


520 
521 


1 

WRITEI8I  LRD,N<),  (LM(  1  )  ,  1  =  1  iND)  i  (  (SI  I  ,JI 
1=1,ND),J»1,4),(XHT(I),I=1,MD) 

CONT I  NUE 
REWIND  II 


1  =  1 
I  =  1 


NO  I  ,  J= I  ,NU»  ,  (  I  PI  I  , Jl  ,  1 
NO )  i J= 1  (ND 1  ,  (  (PI  1  ,  J  )  ,  I 


INPUT  JOINT  RfSTRftlNTS 

I  F  (  I  COUNT  .GT .  1  .OR.  ILOAD.EU.  1  )  GO  TO  112 

HPR  1  N  f  =0 

0  0   110  J= I  ,NR J 

READ  181  ,  K,RL<6»K-5)  ,  R  L( 6 • K -  4  )  ,  R  L  I  6 • K -  3  )  .  R  L ( 6  •  K -  2  )  ,  R  L ( 6 • K -  1  )  , 
1RL  ( 6«K  I 
I  8  I  FORMAT  I  7  I  5  I 

IF  I  MPRI  NT  .NE  .U  I   GO  TO  3 

PRINT  3003 

PRINT  303 
30^  F0RHATI17H  JOINT  RE  5 TR A  I N T 5 , / , / 1 H        JOINT    X  TRANS.    T  TRANS. 
|Z  TRANS.     X  R  0  T  A  •     YROTA.     Z  ROTA.  I 

MPR 1 NT=56 

3  mprint-mprint-i 

print  i  1  i  ,k,rl<6»k-s>  ,rl(6»k-4i  ,  r l  1  6 • k -  3  )  ,  rl ( 6«k-2 )  , rl i 6»k-i  i  , 

IRLI 6»K  ) 
111   F0RMATI7II0) 
I  10  CONT I NUE 
1 2     CON  T I NUE 

BOUNDARY  ELEMENT  ROUTINE    -   LARGE  SPRING  ON  DIA&ONAL 

Nnc  =  o 

M  J  6  =  6  ♦  N  J 
DO   1 1 6    K=l ,Nj6 
IF  I  RL ( K  )  .NE .  1  »  GO  TO  116 
NBC  *  NBC+I 
CALL  BOUND  (K.MBAND) 
1  16  CONT I NUE 


NUMPL 


NBC 


NUMEL  =  M  < 

NEQ  ■  6»NJ 

Nt.QB*(MT0T-4»LL)/(HBAND  +  LL+l)/2 

NBL0CK  =  (NEQ-1  j/NEQB  *  I 

IF  (NEQB.GT.NEQ1  neqb=ne« 

IF(ICOUNT.FQ.|.AND.ILOAD.E<J.O) 
•  PRINT  20  1  ,NEt)  .MBAND.NLUB  .NBLOCK 
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6H8 
6H9 
650 
651 
652 
653 
65^ 
655 
6  56 
657 
650 
659 
660 
66  1 
662 
663 
66<4 
665 
666 
667 
666 
669 
670 
6/  i 
672 
673 
67H 
675 
676 
677 
676 
6/9 
6  HO 
681 
662 
683 
684 
685 
686 
687 
668 
689 
690 
691 
692 
693 
69H 
695 
696 
697 
698 
699 
700 
701 


20  1  FORMAT ! 1H1 ,30H     EQUATION  P     A     R     A     M     E 

1  /30H     TOTAL  NUMBER  OF   EQUATIONS  =  ,  I  5  , 

2  /30H  BANDWIDTH  »  ,  I  5  , 
j  /30H  NUMMER  °F  EQN5  IN  A  BLOCK  =,15, 
'f        /30H     nuMK>ER  OF  BLOCKS             =  ,|S) 

!  F  (  I  COUNT .6T .  |  I 
•REWIND  3 
I  F (  I  COUNT. GT .  1  )  GO  TO  2  16 


T  E  R 


,/ 


3  1  3 

3  1  '( 


START  LOAD  CASE  LOOP 
LN  =  0 
943  LN=*LN+I 
LOADX=0. 
LOADY=0. 
LOADZ=0. 

I  F I L  N  .  L  E •  1  I  GO  TO  500 
DO  510  I  I  =  1  ,  100 
WX ( ! I )=0. 
WY (  I  1  ) =0. 
WZ (  I  I  1=0. 
LML(  I  I  1=0 
DO  b 1 0  JJJr 1 , l 2 
AML  t  I  I  »  JJJ I =0. 
DO  520  11  =  1  ,600 
A (  1  I  )  =0. 
AE I  I  I  ) =0. 
CON  r  I NUE 

INPUT  LOAD  DATA 

READ  21  34  ,NLJC iNLMC 

FORMA  T  i  2  I  5 ) 

LNPR=LNPR+ 1 

PRINT  3003 

PRINT  3  1  3 , L  M  P H 

FORMAT!///,'     LOADING  NUMBER '  ,  I  3  ,  /  1 

PRINT   31M.NLJr.NIMC 


5  111 


5  20 
5  0  0 


C 
C 

2131 


>    '    >     r     9  l_  \>  r\  \i 

PRINT  31 M ,NL JC  iNLMC 

"  LOADED  JOINT  CARDS 
OF  LOADED  MEMBER 


TORHAT ( • 
I  •     NO 

IF  INLJC.EiJ.OI 


NO, 

NO, 


OF 


CARDS 


GO  TO  2  10 


=  '  ,  13,/, 
=  •  ,  I  3,//  I 


297 


M  P  R  INT  =  0 

2  11  J=  I  ,NLjC 

292,  K  I  ,KJ,lNCRP,AFX,AFY,ArZ,AMX,AMY,AMZ 


DO 
READ 


FORMA  I  I  3  I  5 ,6F I  0.0 ) 

IFIINCRP.LT.il   INCRI 

DO  2 1  I   K  =  K  I  ,K  J,  INCR 

A ( 6»K-S  I  =AFX 

A  (  6»K-H  )  =AFY 

A(6»K-3)=AFZ 

A  (  6*K-2  I  =AMX 

A  (  6  •  K  -  I  )=AMY 

A  (  6  •  K  I  =  A  M  I 

L0ADX=L0ADX+A(6»K' 

L0ADY=L0ADY+A(6«K- 


5  ) 
M  I 
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702 

703 
704 
/OS 
706 
707 
70S 
7  09 
7  10 
7  I  I 
712 
713 
7  I  4 
7  15 
7  16 
7  1  7 
718 
71  9 
7  2  0 
721 
722 
723 
724 
725 
726 
727 
72P 
729 
7  3  U 
731 
732 

733 
734 
735 
7  36 
737 
738 
739 
740 
74  1 
742 
743 
744 
715 
7  46 
747 
748 
7H9 
750 
751 
752 
753 
751 
755 


30: 


'I 

212 
21  1 
2  10 


6  69 

306 

5 
26  21 


215 
216 


3  6  4  /, 

C 

c 
c 


LOAd^=LOAoZ+A(A«K-3I 

if  imprint. ne.o>  go  ro  4 

PRINT  305 

FORMAT (26H  ACTIONS  APPLIED  AT  JOINTS, /,66H  JOINT     X  IORCE     Y  I 
ICE     7.  IORCF    X  MOMENT    Y  MOMENT    I     MOMENT) 
M  P  R  I  N  T  =  5  0 
MPRINT=MPRINT-1 

PRINT  212,K,A(6«K-5I  .  A  <  6  *  K  -  4  I  ,A(6»K-3)  ,  A  I  6  •  K -  2  I  ,A<6«K-1  1  ,  A  I  6  ♦  K  1 
FORMAT (  IS  ,6F  1 O'O ) 
CONTINUE 

IFINLMC.EQ.O)  GO  TO  21/ 
HP-  1 N  T  =  0 
00  215  J  = I  , N  L  M  C 

READ  669,  MI,mJ,INCRW,WXB»WYB,WZB 
FORMAT ( 3  I  5 , 3F | 0. 3  ) 
I F (  I NCRW.LT .  1  )   INCRW=  | 
DO  2  15  1 =M I ,MJ , INCRW 
I F  ( MPR I  NT .NE .0 '  GO  TO  b 
PRINT  30  6 

F0RMATI29H  DISTRIBUTED  LOADS  ON  MEMBERS  ,/,  34H  MEMBER       WX 
1  WY  WZ   I 

MPR1 NT=50 
MPR1NT=MPR!NT-1 
PRINT  2624,   I ,WXB ,WYB , WZB 
FORM ATI  I  5  ,  3  F  1  0  •  2  1 
LMH  11  =  1 

LMLT=LMLT+LML ! I ) 

W  X  I  I  )  =  W  X  B • R (  I  ,  1  1  ♦  W  Y  B  •  R  I  I  ,  2  1  +  W  Z  B  ♦  R  I  I  ,3) 
WY(  I  >=WXB»R I  I  , 4 ) +WYB»R  I  I  ,  5  )  +WZB»R<  I  ,6) 
WZ(  I  1  =  W  X  3  •  R  (  I  ,  7  |  +  W  Y  B  •  R  I  1  ,  8  1  +  W  Z  B  •  R  I  I  ,9) 

C  0  N  T  I  N  U  F 

CONT 1 NUE 

NJ6=NJ»6 

DO  3446  K= 1 ,NJ6 

AE  I  K  1=0.0 

CALCULATE  ACTIONS  AT  ENDS  OF  RESTRAINED  MEMBERS  DUE  TO  LOADS 


OR 


IF(LMLT.EQ.O)  GO  TO  217 
DO  210  1 = 1 ,M 
IF ( LML  I  I  I  .NE .  1  )  GO  TO 
LS(J  =  L  (  I  I  »»2 


L5(J 
AM 


(LML (  I  I  .NE.  1  I  GO  TO  218 
(J  =  L  (  I  1  •  •  2 

iL  (  1  ,  I  )  =-WX  I  1  I  »L  (  I  )  /2« 
L (  I  ,  2  )  =-WY (  I  ) »L (  I  1/2. 


ML (  I  ,2  )=-WY (  I  ) *L(  I  1/2. 

ML (  1  ,3  )  =-WZ I  I  )»L (  I  1/2. 
AML(  I  ,4  )  =0. 

AML (1,5 )=WZ (  1  )  «LS«/ 1 2. 
AML (  I  ,6)=-WY (  I  )  »LSQ/ I  2. 
AMLI  I  ,  7  )=-WX I  I  ) »L (  I  • /2« 
AML(  1  ,B)=-WY(  I  >  •  L  <  I  I / 2 • 
AMLI  I  ,9)=-WZ(  I  )«L I  I  1/2. 
AML (  I  ,  10  1=0. 


«  nu  »  I  ,  T  l  - - n  t 
A  M  L  I  1  ,  1  0  1  =  0  . 

AML 


(  I  ,  101=0. 
(I,11)»-WZ(I)»LSQ/12. 
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756 
7  0  7 
758 
759 
76C 
761 
76  2 
763 
764 

765 
766 
7  6  / 
7  6.° 
769 
770 
771 
772 
773 
77H 
775 
776 
777 
778 
77? 
780 
78  I 
782 
783 
784 
785 
786 
787 
788 
789 
770 
791 
792 
793 
794 
795 
796 

797 
798 
7V9 
800 
601 
802 
803 
804 
805 
806 
807 
808 
809 


12  2^ 


I  2  3  5 


1  24S 


126S 


13  10 


1  320 


1  330 


I  3S0 


AML 
Jl  = 
J2  = 
J  J  = 
J4  = 
J5  = 
J6  = 
K  1  = 
K2  = 
K  3  = 
K4  = 
K5  = 
K6  = 
1CI 
1C2 

I  r  i 

I  Y2 

1 z 1 

I  12 
IFI 

!HI 
DO 
JT  = 
IF  ( 
IF  ( 
IF  ( 
IF  ( 
IF  I 
IFI 
IF  ( 
IF  ! 
I  Yl 
I  Z  I 
IFI 
I  Y2 
\l? 
CON 
IE  I 
IF  I 
IF  I 
GO 

AML 

AML 

GO 

AML 

AML 

AML 

AML 

GO 

AML 

AML 

AML 

AML 

CON 


(1,12)  =  WY  I  |  )  «LSG|/  I  2> 
6  •  J  J  I  I 


-4 
-3 
-? 
-  I 

-5 
-4 
-3 
-2 
-1 


1  235 


I  H  I  =  J  T 
TO  1235 


.NE 

■  NF. 
.NE 


0) 
•0) 

■0) 
0) 


6»  JJ(  I 

6»  JJ  (  I 

6» JJ I  I 

6«  JJ(  I 

6« JJ(  I 

6« JK  I  I 

6»JK  (  I 

6» JK  (  I 

6»JK(  I 

6»  JK ( I 

6» JK  (  I 

=  2  •  I  -  1 

=  IC  I  +  1 

=  0 

=  0 

=iO 

=  0 

IWH.EQ.O)  GO  TO 

=  0 

1 225  J=l , I wH 

I  J- I  )  »7+  I 

IR< JT  )  .EQ.  I  » 

I  H I  .  E  U . 0 )  GO 

IR( JI  +2) 

IR( JT+3 ) 

I  R (J  T ♦ 5 ) 

IR( JT  +  6  I 

IPL<  IC  1  ) 

I  P  L  (  I  C  1  I 

=  1 

=  1 

IPL<  IC2  ) 

=  1 

=  I 

T  INUE 

1  Y  I  .  E  (J 

I  Y  1  .  E  Q 

I Y 1  .E« 

TO  1350 

(  I  ,5,=0.0 

I  I  ,  I  1  ) =0.0 

TO  1350 

(1,3 |--0.375«WZ(  I  )»L  (  I  I 

(1,9 )=-0.625«WZ (  I  1  »L  (  1  I 

( I ,5)=0-C 

(1,111  <=-0.  1  26»WZ  (  I  )»L(  I  )»L(  I  I 

TO  1350 

(1,3  )=-0.6?5»wZ (  1  )  «L (  I  ) 

(I,9|*-0.J75*wZ(l)*M-I) 

(  I  ,5)  =0.  I 2S»^Z (  I  ) *L (  I  ) »L(  I  I 

(  I  ,  1  1  I  =0.0 

TINUE 


i  y  i  =  i 

IZ1  =  1 
I  Y2=l 
1Z2=1 


EQ«0. AND. IPL ( I C2 ) 
El}«0)  GO  TO  12H5 


EQ«0 )  GO  TO  1 265 


EQ.O I  GO  TO  I  265 


I  .  A  N  D  .  I  Y  2  .  t.  Q  •  I  1 

GO  TO  13  10 

1.AND.JY2.EQ.0I 

GO  TO  1320 

0.  AnO.  I Y2.EQ. 1  1 

GO  TO  1330 
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B  I  C 
8  I  1 
8  I  2 
013 
8  I  H 
8  IS 

n  i  6 

8  I  7 
8  I  8 
819 
820 
821 
822 
823 
02H 
825 
826 
827 
828 
829 
830 
831 
832 
833 
83M 
8  35 
836 
837 
83e 
839 

a  m  c 

8M  1 
8M2 
8M3 
8MM 
8MB 
8M6 
8M7 
8M8 
BM9 
850 
851 
852 
853 
85H 
85b 
856 
857 
858 
859 
860 
861 
862 
863 


rno 


1  H  2  0 


I  '13  0 


I  M50 


218 

217 


I  F (  1  Z 1  .EN.  1  -AND. 

I  r  (  1  l   I  •  E  Q  .  1  .  A  N  0  . 
I  F <  1  Z  I  .  EQ.O. AnO. 
(,0  i  0  I  '1 5  0 
AMI  I  1  ,6  )  =0  .0 
A  ML  I  I  ,121=0.0 
GO  TO  I  M 5  0 
A'lL  (  I  ,  2  I  =-0.  3?5« 
A  M  L 1  I  ,8|=-a.625* 
A  ML  (1,6  1=0.0 
A  ML  (  I  ,  1 2  )  =0.  1  2$* 
GO  TO  1M50 
ftHL(l,2)=-0.625» 
AML (  I  ,8  )  =-0.  37b« 
AML (1,61 »-0. 1 2^« 
AML (  I  ,  I  2  I =0.0 
CONTINUE 

ALIJ1  )=AE(J1  l  - R  I 
AEIJ2I=AE(J2)-R( 
AE  (J3 ) =AE ( J3  )  -R< 
AE ( JM  I =AE I JM  )  -R  I 
AE ( J5 )=AE ( JS I -R< 
AE ( J6 ) =AE ( J6I-RI 
AEIKI  )=AE ( K I )-R ( 
AE ( K2 ) =AE  (K21-R  I 
AE I K3 ) =AE ( K3  )  -R I 
AE (KM  )=AE  (KM  )-R( 
AE (K5  )=AE ( K5)-R( 
AE ( K6  )  =AE I K6  I  -R ( 
I  F (  1  COUNT. GT  .  t  ) 
LOADX=LOADX-R ( ! , 

I  R(  I  ,7 ) • ( AMLI  I  ,3  I 
L0ADY=L0A0V-R(  1  , 

1RI I ,8 ) ♦ ( AML (1,3) 
LOADZ=LOADZ-R(  I  i 

IR  I  I  ,9 ) •  (  AML  <  I  ,3) 
CONT ! NUE 
CONT INUE 


I  Z  2  .  E  Q  •  I  ) 
1  Z2.EG.0 ) 
IZ2.EU.il 


GO  10  I  M  1  0 
GO  TO  1M20 
GO  TO  IM30 


WY(  I  )«L(  I  I 
WY (  I  I *L(  I  I 

WY I  I  ) »L I  I  )  *L  I  I  1 

WY (  1  )  »L  (  !  I 
WY (  1  I  «L  (  I  1 
WY  (  I  ) »L (  1  1  *L  (  1  I 


.  1  ) 

.2) 
,3) 
.  1  ) 
,2) 
,3  I 
.  1  I 
,2) 
,3) 
.  1  > 
,2) 
,31 
GO  T 

1  )«( 

♦  AML 

2  1  •  ( 

♦  AML 
3)  •( 

♦  AML 


•  AMLI  I 
•AML (  1 

•  AML (  I 

•  AMLI  1 

•  AMLI  1 

•  AML (  1 
•AMLI  I 
•AML (  I 

•  AML (  1 

•  AML  I  I 

•  AML  I  I 

•  AML I  I 
0  218 
AML I  I  , 
11,91) 
AMLI  I  , 
(1,9)) 
AML (  I  , 
(1,9)1 


.  1  ) -R  I  I  , M  ) • AML  I  I  , 2  )  -R  I 

,  1  )-R(  I  ,5) .AML  I  I  ,2  )-R ( 

,  1  I  -R  (  I  ,6  ) ♦ AML  I  1  , 2 ) -H ( 

,  M  )  -R  |  I  ,  M  )  •  AML  I  I  ,5  )  -R  ( 

,  M  I  -R (  I  ,5  I  •  AML I  i  ib  )  -R ( 

,M  )  -R  I  1  ,6  )»AML I  I  ,5  l-RI 

,  7  >-R(  I  ,M  )  *AML  I  !  ,8  I -R( 

, 7  )  -R I  I  ,5  )  • AML  I  I  ,8  )-R ( 

, 7  )  -R (  I  ,6 )  «AML  I  1  ,  8  )  -R ( 

,10)-R(I,M)»AML(1,11)-R(I,7)»AMLII,12) 

,10)-R(I,5)»AML(I.11I-R(1,8>»AML<1.I2) 

,10)-R(I,6)»AML(I,11I-R(1,9)»AMLII,12) 

1  )+AMl(  I  ,7)  )-R(  I  ,  4 ) • ( AMLI  I  ,2)+AML(  1  ,8)  ) 

1)+AMLII,7))-R(I,5I»(AML(I,2)+AML(I,8)I 

I)+AML(I,7))-R(I,6)«IAMLI1,2)+AMLI1,8)I- 


,7  ).AML(  1,3) 

,8  )  • AML 11,3) 

,9  )  »AML 11,3) 
, 7 ) »AML (1,6) 

,8  )  • AML (1,61 

,9 )  .AML  I  I  ,6  ) 
,7 ) «AML( 1,9) 

,8  1  «AML(  1,9) 

,9)  »AML(  1,9) 


CALCULATE  AND  OUTPUT  RE5ULTS 

CALL  SOLVE  1 MTOT  ,  MB AND , NEQ ,     N J  ,  NUMEL  ,  LL  ,  NEQH , NBLOCK  ) 


30  8 


NJ6=6«NJ 
IF!  I  1'  R  .  E  Q 
M  P  R  I  N  T  =  0 

DO  226  JE  =  6  ,Nj6  ,6 
JE6  =  JE./6 

lFIMPRlNT.NE.O'   GO 
PRINT  3003 
PRINT  308 
FORMAT  I 20H 
1  TRANS  .     X 
MPR INT=50 


O.OR.lPLAS.EQ.Ol  GO  TO  785 


TO  6 


JOINT 
ROT  A  . 


DISPLACEMENTS./, 66 H 
Y  ROTA.     i     ROTA. 


JOINT 
) 


X  TRANS, 


Y  TRANS, 
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864 
865 
666 

86  7 
868 
869 
87C 

87  I 
872 
8  73 
8  74 
8  7  5 
876 
877 
878 

8  79 
880 
881 
082 
883 
804 

885 
886 
887 
888 
88? 
090 
89  1 
092 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
90H 
905 
906 
907 
908 
909 
910 
71  I 
9  I  2 
91  3 
9  1  4 

9  15 
916 
91  7 


2 
2 

785 

C 

c 

c 
c 
c 
c 


6  MPRINT=MPRINT-I 

jep  = jr-5 

JE2=JE 

PRINT  256,  J{_6  »  (  D  J<  J  >  ,  J  =  JEP  ,  JE2  ) 
56  FORMAT!  IS,  6  F 1 0 • 6 ) 

26  CONTINUE 

CONTINUE 

BY -PASS  IF  MO  hEAM  ELEMENTS 
IFIM.LE.O)  GO  TO  504 


COMPUTE  STRESSES  , BEAM  ELEMENTS 


R  E  W  I  N 
R  E  W  I  N 

0  0  9  1 
READ! 
111=2 

1  12  =  2 
S  IGBM 
S  IGBM 
S  I  GMA 
SIGMA 
K  K  (  1  ) 
R  K  (  2  I 
RK  (  3  I 
R  K  (  1  I 
RK  (  5  ) 
RK  (  6  I 
RK  (  7  I 
RK  (  8  ) 
R  K  (  9  I 
RK  (  1  0 
R  K  (  1  I 
RK  (  1  2 
RK  (  1  3 
RK  (  I  H 
RK  (  15 
RK  (  1  6 
RK  (  1  7 
RK  (  1  8 
RK  (  I  9 
RK  (  20 
RK  (  2  I 
H  K  1  2  2 
RK  (  23 
RK  (  24 
RK  (  25 
RK  I  26 
R  K  (  2  7 
RK  (  28 
R  K  (  2  9 
RK  (  30 


0  1 

0  1 
4  I 
lb  I 

•  1- 

•  I 

X  (  1 

XI  I 
XI  I 
XI  I 
=  C( 
=  C  ( 
=  C( 
=  C( 
=  C  ( 
=  C  I 
=  C  ( 
=  C  ( 
»C| 
)=C 
)=C 
)=C 
)=C 
)=C 
)=C 
)=C 
)=C 
)=C 
)  =C 
)=C 

)  =c 

)=C 
)=C 
)=C 
)=C 

»=c 
»=c 

1  =c 
)  =c 
)=C 


8 
5 

=  1  ,M 
I C  (  J  I  . J  = 

1 

111=0,0 
12  I =0.0 
I  1  1=0.0 
12  1=0.0 

I ) 

7  ) 
1  4  ) 
I  8) 
20) 
24  ) 
27  ) 
29  ) 
33  1 
(  35  ) 
(  HO  I 
(  46  1 
(51  ) 
(  53  ) 
157  I 
(  59  ) 
(  62  ) 
(  66  ) 
(  68  ) 
(  72  ) 
(  73  ) 
(  79  ) 
I  86  ) 
t  90  1 
I  92  ) 
(  96  I 
(  99  I 
(  101  ) 
I  105  ) 
11071 


1,144) 
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918  RKI3I  >=C<  I  12) 

919  RK ( 32  )=C (  I  18  I 

920  RK I 3J)=C< 123) 

921  RK (  3M  )  =C (  I  25  ) 

922  Rk I  35 ) =C (  1 2?  ) 

923  RK ( 36 )=C (  I  31  ) 
9  2  't  RK(37|=C(131) 

925  RK ( 38  1  =C  1  1  38  I 

926  RK  (  39  )  =C (  1  MO  ) 

927  RK  ( MO ) =C (  I M4  ) 

928  J1=6»JJ(  I  )-5 

929  J2  =  6«JJII)-'I 

930  J3=6«JJ(  1  )-3 
93  1  JH»6» JJ(  I  1-2 

932  J5  =  6* JJ(  I  ) -  I 

933  J6=6« JJ (  1  ) 
93M  K ■ «6» JK (  I  )  -5 

935  K2=6« JK (  I  )  -M 

936  K3  =  6« JK  (  I  )-3 

937  KM=6»JK (l)-2 

938  K'.,-6»  JK  (  I  )  -  1 

939  K6=6»JK (  I  ) 
9M0         912     CONTINUE 

9M1         C     DISPLACEMENTS  In  LOCAL 

912  OJ 1 =DJ( Jl ) »H ( I , 1 ) +DJI 

9M3  DJ2=DJ( Jl  )  »R (  i  il ) +  DJI 

9MM  DJ3  =  Dj( Jl  ) »R (  I  ,  7  )  *DJ( 

9H5  DJM  =  DJ < JM  )  *R (  |  ,  1  I +0J( 

9M6  0J5=DJ( JM ) »R ( | »M ) +OJI 

917  DJ6  =  DJ ( JM  )  «R (  I  ,  7  ) +OJI 

9MT,  0K1=DJ(KI)»R(I,I)+DJ( 

9M9  DK2=DJ(K1)»R(I,M)+0JI 

950  0K3  =  0J( K  I  1  »R (  I  , 7  I +DJ( 

951  DKM  =  DJ( KM  )  »R (  I  ,  1  )  *DJ ( 

952  DK5  =  DJ< KM  )  «R <  I  ,M  ) +DJ < 

953  DK6  =  0J(KM  )  »R {  [  , 7 ) +0J( 
95M         C    COMPUTE  MEMBER  FORCES 

955  AHR  (  I  I  =RK  (  1  )  »|jJ| +RK  (  2 

956  AMR(2)=RK(3)»oJ2*RKlM 

957  AMR(3)=RK(7)»[)J3*RK(8 

958  AMR(M)=RK(II)»DJH+RKI 
9cj9  AMRt5)-RK(13)»DJ3*RK( 

960  AMR(6)=RK(17)»0J2*RK( 

961  AMR (  7  )=RK ( 2  I  ) «DJ| +RK ( 

962  AMR ( 8 ) =RK ( 23 ) «0 J2+RK ( 
96  3  AMR19)=RK(27).DJ3*RK( 
96M  AMR(I0)=HK(31)»0JM*RK 

965  AMR(I|)=RK(33)«DJ3+RK 

966  AMR (  1 2  )  =RK  I  37  )  »DJ2*RK 

967  AMR (  1  )  =AMR  I  1  )  +  AML (  I  i  1 

968  AMRI 2  I =AMR ( 2  I +AML  1  I  t 2 

969  Amr(3)=AMR(3)+Aml(1.3 
97C  AMR (  M  )  =AMR ( M  ) +AML M  .M 
971  AMR(5|=AMR(5)+AML(Ii5 


COORDINATES 

J2  )  «R(  I  ,2  I  +  DJ ( J3 ) »R (  I  , 3 ) 
J2)»R(  I  ,B)+0J(J3)«K(  1  ,6) 
J  2  )  •  R  (  I  ,8)*0JU3)eR(  I  ,91 
J5  I  »R (  I  ,2  )  +  0J< J6 ) »R (  1  , 3 ) 
J5  )  »R  <  I  ,  L_>)*DJiJ6)»R(  I  ,6) 
J  5  )  ♦  R  I  I  ,0)+DJ(J6)»R(  I  ,9) 
K2  I  »R<  I  ,2 ) *0  J< K3 ) »R (  I  ,  3 ) 
K  2  )  •  R  (  1  ,  5  I !  ♦  I)  J  1  K  3  )  •  R  (  I  ,6) 
K  2  )  •  R  <  I  ,  «  I  +  D  J  (  K  J  )  •  R  (  1  ,9) 
K5 ) »R (  1  ,2 ) +  DJI K6  )  »R  <  I  ,3  ) 
K5  )  «R  1  I  ,b> »DJI  K6  )  »R(  I  ,6  ) 
K5  )  »R (  I  ,8  I  +DJ<  K6  )  »R (  I  ,9 ) 


•  DK 
0  J 
•DJ 
Z  )  • 
M  I  « 
8  1  • 
2  )  • 
M  )  • 
8  )  • 
32( 
3M  ) 
38  ) 


1 

6*R 

5  +  fi 
DKM 
DJ5 
DJ6 
OK  1 
DJ6 
DJ5 

•  DK 
»DJ 

•  D  J 


K  I  5  I  »DK2  +  RK (  6  )  »DK6 
K  (  9  )  «DK3  +  RK (10  1 »DK5 

♦  RK(I5)»DK3  +  RK(I6i»l>KS 
+  RK(  19)»DK2  +  RKI20)»DK6 


'DK2+RK  (  26  )  *DK6 
>DK3+RK t  30  >  »DK5 


+  ii  K  (  2  5  ) 

+  R  K  (  2  9  )  i 

M 

5+RK(35)»DK3  +  RM36)»0K5 

6*RK(39)»DK2+RK(M0)»DK6 
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77  2 

773 

974 

97S 

976 

9  77 

978 

979 

9RD 

98  1 

98? 

983 

784 

985 

986 

967 

98B 

9R9 

990 

991 

992 

973 

9  9 'I 

97b 

V76 

777 

778 

977 

I00C 

1  00  1 

1002 

1003 

1004 

1005 

1006 

1007 

1  OOR 

I  007 

1010 

101  I 

1012 

1013 

ion 

10  15 
1016 
1017 
1018 
10  17 
1020 
1021 
1022 
1023 
1  02  M 
1025 


77  1 


10 
7  I  4 
C 
C 
C 


AMR  I  6 ) =AMR 
A  H H I  7  I'AMR 
AMR ( 8  I =  AMR 
AMR ( 7 ) =AMR 
A  M  H  I  1  0  I  =  A  M 
A  M  R  <  1  I  )  =  A  M 
A  M  R  (  1  2  I  =  A  M 
WRITE! 15  1 , 
COfiPUTE     STRES 

XM=0.0 
DO  10  K  =  I  , 
IF (K.EQ.2  ) 
KK  =  I  »2-2*K 
5 1 GAX ( KK  )  = 
1  F  ( ABS<  AMR 
MY=-AMR ( 3 ) 
MZ=AMK(2I» 
1C0R'  I 
IF (  TYPEMI  I 
DO  771  JOE 
S I GBZ=-MZ« 
5 1 GUY=MY*A 
S 1 GO=Sl GBZ 
S IGMX=SIGB 
IF (  TYPEMI  I 

1  X 
IF  I  TYPEMI  1 
IF  1  TYPEMI  I 
I  F  (  A  B  5  I  S  I  G 
IF! TYPEMI I 
I  F  (  T  Y  P  E  M  I  I 

I  X ( KK  I  =-5  I  G 
IF  (  TYPEMI  I 

1  )  =»-Sl GBMX \ 
T  A  U  M  A  X  I  K  K  ) 
I  F  (  T  Y  P  E  M  I  1 
5  I  GMAX  I  KK  ) 
RAD  IUS  =  ABS 
5 IGMA  I  I  KK  ) 
5  I  G  M  A  2  I  K  K  | 
VM  I  SE5  =  S<ilR 

1  )  )»«2)  ) 
VMOY  ( KK  )  =V 
CONTINUE 
CONTINUE 


I6I+AML.  (1,6) 

( 7  )  +AML (1.7) 
I  8  I  + AML  I  I  18  ) 
I  7  )  +AML (1.7) 
R I  I  0  > +AML  (1,10) 
R I  I  1  I  +  AML  11,11) 
R(  12  »+AML(  1,12) 
( AMR  I  K  )  ,K  =  I  ,  I 2  ) 
5E5  AT  BOTH  BEAM 


XM  =  L  I  I  ) 


ENDS 


-AMR  I  1  )  / AX (  I  ) 

I  7  )  )  .GT . ABS ( AMR (  I  )  )  )  SIGAXIKK) 
♦  XM-AMR(5)-WZ(  I  )»XM»«2/2. 
XM-AMR(6)*WY(  1  )»XM»»2/2. 


AMR(  7  l/AX (  I  ) 


)  .Eq.6  )   I C0R»4 

= I , lCOR 

ACZ (  1  , JOE ) / 1 Z (  I  ) 

CY (  I  ,  JoE  I/I  Yl  I  1 

♦SlGBY 

+  S I G*X ( KK  ) 

).EQ'6.AND.ABS(51GMX).GT,AbS(SIGMAX(KK)))SIGMAX(KK) 


SIGM 


).Nf6)SIGB  =  ABSI5IGBZ)+ABS(SIGBY) 

).EQ.3.0R.TYPEM(  I  ).EQ.5)SIGB  =  SQRT(SIGBY»»2  +  SlGBZ»«2) 
B).<,  T.ABSISIGBMX(KK)  I  )  SIGBMX(KK)*S1GB 
).NE'6. AND. SIGAXIKK). LT.O)SIGBMX(KK)«-SlGBMXlKK) 
).EQ^6. AND. SIGAXIKKI.GT. 0.0. AND. SIGBMXIKKI.LT. 0.0)  SlGBM 
BMX ( KK  ) 

>.EQ»6. AND. SIGAXIKK). LT.O. AND. SIGBMXIKKI.GT.O)  SIGBMX I KK 
KK  ) 

=  AMR ( 1 } «ACX(  I  )  /I  X  I  I  I 

).NE«6)  SIGMAX(KK)=5IGBMX(KK)+SIGAX(KK) 
=  S I GBMX  ( KK  )  +SI GAX  <  KK  ) 

ISm?T(TAUMAXlKK)»»2*(SlGMAX(KK)/2.0)»»2)» 
=SlGMAXIKK)/2.0+RADIUS 
=SlGMAx(KK)/2.0-RADIUS 
T(0.5»(S1GMA1(KK)»»2+SIGMA2IKK)»*2+(SIGMAI(KK)-SIGMA2(KK 

MI5ES/IYS1R5I  I  I  • B  M I  I  I  ) 


DETERMINE  LOCATION  OF  PLASTIC  HINGE 

RATIOL*5000000*0 

DO  8220  K=1,M2 

I F (  I  PL  I K  I  .GE  .  I  I  GO  TO  8220 

IF  (  VH0Y2I  K  I  .GL  •  I  .0  )   GO  TO  8220 

I F  ( VMOY ( K  )  .LT  .0.00000  I  )  GO  TO  H220 

RATIO=(  1.0-VMuY2(K)  ) /VMOY  IK  ) 
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1026 

1027 

1028 

1029 

1030 

1031 

1U32 

1033 

I03H 

1035 

1036 

1037 

1038 

10  3? 

I0H0 

10M1 

I  ('"4  2 

10M3 

lOMH 

10H5 

1CM6 

I0M7 

I0M8 

I0'4V 

1050 

1051 

1052 

1053 

105H 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

I06H 

1065 

1066 

1067 

1068 

1069 

1070 

107  I 

107  2 

1073 

107M 

1075 

1076 

1077 

1078 

1079 


8220 
C 
C 
C 


if(Ratio.i_t.ratiol)  mpl<  icount  >  «k 

IFIRATIO.LT. RATIoL)  RATIOl=RATIO 
CONT I NUE 


INSERT  MULTIPLE  HINGES 

RAT  I  0S=0.0 

I  R  C  T  =  0 

RA  T  I  0T*RAT IOL» I  .05 

DO  8225  I Q= I ,m2 

IF ( 1PL ( IQ) .GE. 1 )  GO  TO  8225 

RATI0=(  I  .0-VM0T2I  IQ>  1/VMOYI  I  *J  ) 

VH0Y3  =  VM0Y2(  I  (}  I  +VMOY  <  I Q ) »RAT IOL 

IF1  VM0Y3.GT.0.99)  GO  TO  8325 

IF(RATIO.GT.RATIOT)  GO  TO  8225 
8  3  2  5    I  .X  C  T  =  I  R  C  T  ♦  I 

RAT  1  05  =  RAT  105  +  RAT  10 

IPL (  IQ  )  =  I  COUNT 
822S   CONTINUE 

RAT10L=RAT IOS/IRCT 

FACTOR!  ICOUNT)=RATIOL 


5621 


5622 


56- 


552 

C 
C 


CHECK  DEFLECTION  LIMITATION  FOR  PLASTIC  RUNS 
IF (  1PLAS.NE. 1  )  GO  TO  552 
DEF (  ICOUNT  I  =DJ(N0D6 I 
IF ( JO  INT  .EQ.O  )  DEF  (  ICOUNT  ) -0.0 
DJP  i  »ABS lOJP  f  N0D6 )  I 

DJP2  =  0JPl*ARS(.0j(N0U6|  I »F AC  TOR  I  ICOUNT  I 
ADLlM  =  ABS(DLlMl  T  ) 

IF( IPLAS'EQ. 1 .AND. ADLIM.GT. 0.00001 1  GO  TO  562 
XMAXL=0.0 
DO  562  I  K= 1  ,M 

IFILIK  )  .GT.XMAXL  )  XMAXL  =  L(K) 
XMAXL2=XMAXL 
00  5622  LT=1 ,NJ 

IF(ABSiDJ(LT»6-5)).GT.XMAXL2) 
IF ( ABS(DJ(LT»6-H  »  •  .GT 
IF(AaslDJ(LT»6-3l  » 
I F  < ABSlDJ(LT»6-2  )  )  .GT.  I 
IF ( ABS<DJ(LT»6-1  )  )  .GT.  I 
IF(ABS(DJ(LT»6>  I.  G T.I. 01   1  S  T  0  P  =  1 
IF  (  ISTOP.EQ.  I  )  FACTOR!  ICOUNT)*0.0 
GO  TO  552 
CONT INUE 

DJP  I  «ABS I DJP ( N0D6  )  ) 

0JP2"DJPI+ABS(0J(N0D6)  i  »FACTOR  <  ICOUNT  ) 
IF  I  DJP2.LT  .ADL I M  I  GO  TO  552 
XX*(ADLIM-DJP  I  I/IDJP2-DJPI  I 
FACTOR!  ICOUNT)=FACTOR(  IC0UNT1»XX 
IST0P=1 
CONT INUE 
IF(ISTOP.EQ.l)  I P  R  = I 

UPDATE  TOTAL  DEFLECTION  ARRAY 


X  M  A  X  L  2  ) 
( ,  I  .  X  M  A  X  L  2  I 

.0  ) 
.0  ( 


IST0P=1 
I  STOP« 1 
1ST0PM 

I  STOP=  1 

ISTOP=  I 


124 


080 

081 

1082 

1083 

1084 

1085 

1086 

10  8  7 

0  8b 

089 

070 

1091 

i09Z 

093 

094 

1095 

096 

097 

0  98 
099 
100 
101 

1  02 
103 
I  04 
105 
106 
107 
108 
I  09 
I  10 
1  1  I 
I  12 
I  1  3 
I  I  H 
I  15 
1  16 
1  17 
I  18 
1  19 
120 
121 
I  22 
123 
124 
1  25 
1  26 
1  27 
I  28 
I  29 
1  30 
1  31 
1  32 
133 


00  550  K  £  =•  6  ,  N  J 6  ,  6 

KF6=KF/6 

DO  550  K= 1 ,6 


550 


KP-KE-6+K 

DJP(KP)=DjP<Kp)+DJ(KP)»FACTOR(lCOUNT} 
IF (  ISTOP.EQ.O 1  GO  TO  3452 
MPR1NT=0 

r*  r»   ii  -?  *    ir_/   m  .  i.  i 


TO  61 


61 


426 
3452 


MPR1 NT=0 

0  0  4  26  JEx6,Nj6,6 

JE6=JE/6 

IF (HPRINT.NE.O 1  GO 

PRINT  3003 

PRINT  308 

MPR I NT=50 

MPRINT=MPRINT-1 

JEP=JE"5 

JE2=JE 

PRINT  256,  JE6  ,  IDJP ( J)  ,  J* JEP , JE2 > 

CONT I NUE 

CUNT  I NUE 


IF  INUMPL»EQ»0)  GO  TO  B430 

IF (  IPLAS.EQ.  I  .  AND.  I5T0P.NE.  1  1  GO  TO  8430 

REWIND  2 


8420 
8430 

C 

c 
c 
c 


DO  8420  I  0=  1  .NBLOCK 

I  A  =  (NBLOCK-IFt  )»NEQB*t 

IAA"IA*NEQB-1 

WRITEI2)   (DJP(KA  )  ,KA=  1  A  ,  I  AA  I 

CONT I NUE 


RATIO  MEMBER  STRESS  arrAYS  AND  UPDATE  CUMULATIVE 
MEMBER  STRESS  ARRAYS 


822  1 


922  1 
C 


51 G MAI  I  I  I =  5  I G  M  «  I  I 

5IGMA2I  I  I  =  S  I  G  M  A  2 ( 

DO  9221  I  =■  1  ,  M2 

P5IGAX (  I  )  *PS1  GAX ( 
PSIGBMI I ) =P51 GBM( 

PTAUMX  I  I  )  =PTAtjMX  ( 

P5I  GMX (  I  )  *P51 oMX ( 

P5IGM1  I  I  I  =P5IG"I  ( 

PSIGM2I  I  )=P51G«2( 

COMPUTE  ENERGY  FOR  PLASTIC  RUNS 
IF  (  IPLAS.NE  .  1  )  GO  TO  8451 
ENERGY ( ICOUNT (=0.0 
'>"  8421   IEN=I  ,NJ 


1+5  i  GAX t  I  ) 

)  *S I GBMX (  1 

)  +TAUMAX (  1 
) +5 1 GMAX ( I 

)  +5  I GMA  1  (  I 

)  +SI GMA2 (  I 


E 

D  0 

IEI=IEN«6-5 

IE2MEN»6-4 


125 


I  31 

I  35 
I  3ft 
I  37 
I  38 
1  3? 
1  HO 
I  HI 
I  H2 
IH3 
I  HH 
1  H5 
IH6 
IH7 
I  H8 
1  H9 
150 
151 
152 
153 
I5H 
155 
156 
157 
158 
159 
I  6C 
161 
162 
I  63 
I6H 
165 
1  66 
16/ 
I  68 
169 
I  70 
171 

1  72 
1  73 
I  7H 
1  75 
1  76 
I  77 
1  78 
I  79 
1  80 
181 
182 
183 
I  8M 
185 
I  86 
187 


(!  H  2  1 


5  01 
C 
C 
C 


312 

8 


H60 


H61 


H50 


I  E  )  =  I  E  N  •  6  -  3 

ENERGY!  I  COUNT  >=ENERGY(  1  COUNT  )  ♦  (  A  (  IE1  I  +AE!  !E1  )  I»<0.5»FACt0RI  I  COUNT  I 
1+fACTOT  l«OJI  IE!  I  • FACTOR!  ICOUNT  I  +  ( A (  IE2  I  +AE I  It  2)  )«(0.5*FACT0R(  ICOUN 
2T)+FACT0T)»DJ(  I  E  2  )  •  FACTOR!  KOUNT  1  ♦(  A!  IF.3)  *AE  (  IE3I  )»iO.S»FACTOR(  ICO 
3UNT)+FACT0T)*dJ(  IE3)»FACT0R(  I  COUNT! 

CONTINUE 

ENERGTrENERGT+ENERGY!  I  COUNT) 

FACT0T=FACT0T+FACT0R(  1  COUNT  I 

CUNT  I NUE 

DXMAXL=LOAOX»F ACTOR  I  ICOUMT  ) 

DYMAXL=LOAOY»rACTOR( ICOUNTI 

DZMAXL  =  LOADZ»FACTOR!  I  COUNT) 

CONT I NUE 


BH'JI    CONTINUE 


TO  8 
312 

REACT  IONS 
7  FORCE 


AT 


RE5TRA I NEO 
X  MOMENT 


JOINTS./ .75H 
Y  MOMENT 


JOINT    X  F 
Z  MOMENT) 


1 )  GO  10  H60 


REACTIONS  AT  RESTRAINED  JOINTS 

N  J  6  =  N  J  *  6 
M  P  R  I  N  T  =  0 
ICJ  =  0 

DO  H50  KE=6,Nj6,6 
I F ( HPR 1 Nl .NE -0  I  GO 
IF(IPR.EQ.I)  PRINT 
FORMAT  •  1H1  , ///  ,3  IH 
IORCE       Y  FORCE 
MPRINT=MPRINT+I 
KE6=KF/6 
K  R  L  =  0 

DO  H60  K= 1 . 6 
KP«KE-6+K 
REAC  I  K  )  =0.0 
IF  <  RL ( KP  >  .NE 
KRL=  I 

REAC ( K  )  =-DJ I KP ) • 1  .E20 
CONT I NUE 

I  F  ( KRL  «NE .  1  I  GO  TO  HSO 
ICJ=ICJ+ 1 
DO  H6I   K=l ,6 
REAC(K)=REAC(K>»FACTOR<  I  COUNT) 

REAC1  (  I  C  J  )  =  R  E  A  C 1  (  ICJ1+REACI  1  I 
R  E  A  C  2  (  ICJ)=REAC2I  ICJI+REACI2) 
REAC 3 (  ICJ)=REAC3(  1CJ)*REACI3) 
REACH!  ICJI'REACH!  ICJ>+REACIH) 
REAC5!  ICJ)=REAC5(  ICJI+REACI5I 
REAC6!  ICJ)=REaC6(  ICJI+REACI6) 
REACX=REACX+REAC( 1 ) 
REACY=REACV+RE*C(2I 
REACZ«REACZ*HEAC(3I 
IF  (  IPR.EQ.  I  ) 
•  PRINT  2020.KE6.REAC1  (  ICJ)  ,REAC2(  ICJ)  ,  R  E  A  C  3  I  ICJ)  ,  R EACH!  I  C  J  1  ,  R  E  A  C  S  (  i 

1  C J  )  ,RE AC6 (  ICJ) 
CONT  I N  U  E 
DO  8226  1  =  1,  M  2 
IFIIPI.  (I).EQ.O'  GO  TO  8  226 
MEMN=( 1+1 )/2 


126 


1  1  88 

1  1  09 

1  1  90 

i  1  9  1 

1  1  92 

1  193 

8  2  26 

1  1  94 

2020 

1  195 

1  1  96 

1197 

1  1  98 

C 

I  1  99 

C 

1200 

c 

1201 

1202 

1  203 

120*4 

1205 

1  206 

1  207 

13 

1  208 

1  209 

1210 

1211 

12)2 

1213 

121  1 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1  222 

1223 

I22M 

1225 

1  226 

503 

1  227 

1228 

51  82 

1229 

5082 

12  3C 

C 

1231 

C     « 

1  232 

C 

1233 

1  234 

1235 

1236 

1237 

1  238 

1  2  39 

1  2H0 

1211 

36  8/ 

HEMl)  =  JJ  (MtMM  ) 

IF(  (  1/2-1  !-l  )  /2  |  .NE.0)MEMD=JK  I  MEMN ) 

IF(RL(MEHD«6).EQ.1 I  RL(MEMD»6)=-| 

IF(KL(MEMD»6-1  I.EQ.l  )  RL (MEMO* 6-1  !=-l 

IF(RL(MEMo»6-2i.EQ«l  I  RLIMEMD»6-2)*-l 

C0N1  I N  U  E 

FORMAT (  15  ,6F  1 2*  I  ) 

IF  ( M.EU.O  )  GO  To  508 

I  F  (  IPR.EQ.O  »  (,0  TO  5082 

MPR I NT  =  0 

PRINT  REAM  ELEMENT  STRESSES 

I PRA'O 

00  503  1  =  1  ,  M  2 

I F  ( MPR I  NT .NE .0 >G0  TO  13 

PRINT  300  3 

P  R,  I  N  T   13  13 

MPR 1 N  T  *50 

MPR 1 NT  =  MPR INT-  1 

1  MEM* (l  +  l)/2 

1 MEMT= (  1*1  1/2-1/2 
NOO=JJ I 1MEM ) 

1 F (  I MEMT .EQ.O  )  NOD  =  JK (  I  ME M > 
VM15ES=YSTRSI  IMEM)  »VM0Y2 I  I  )  •BM(  I  MEM) 
IF ( ABSIPSIGBMI  I  I  )  .GT 
I ABS ( PSI GHMl  I  )  )  I 
IF ( ABS (PS1GMX (  I  )  )  .GT 

I  ABS<  PSIGMX  (  I  )  )  > 


GT 


GT 


YSTRSI  1MEM)  >PSIGBM<  1  )* YSTRSI  1MEM)»PSIGBM(  I  |/( 

YSTRSI  1MEMI  IPSIGMX  1  I  )  =YSTRS(  IMEM)«PSIGMX(  I  )/( 

YSTRSI  IMEM)  1PS1GM1  I  I  I  = YSTRSI  IMEMl'PSIGMl  (  I  )/( 

YSTRSI  IMLM1  IPSIGM2I  I  )* YSTRSI  IMEM)*HSIGM2(  I  )/( 


SI GAX  ABOVE  •  1 


IF  I ABS  IPSIGMI  (  I  )  ) 
1 ABSI PSIGM1  I  I  )  )  I 

IF  I ABSIPSIGM2 (It) 
1 ABS  I  PS  IGM2 I  I  )  )  ) 

I F(ABSIVMISES).GT. YSTRSI  IMEM)  )  VMI5ES  =  Y5TR5(  IMEM) 

1F(VM0Y2<I).GT'I.0)  VM0Y2(I)=1.0 

IFIARSIPSIGAXI  I  I  )  .GT.  YSTRSI  IMEM)  I  IPRA  =  1 

PRINT  3l9,IMEMiN0D,PSIGBMI  1  )  ,PSIGAX(  I  )  ,PTAUMX(  1  )  ,  PSIGMX (  I  )  , 
IPSIGMI  I  I  )  ,PSIGM2(  I  )  ,VMlSES,VM0Y2l  1  )  ,  1PLI  I  I 

CONT INUE 

IF(IPRA.EQ.I)  PRINT  5182 

FORMAT!//,'    •  •  AXIAL  STRESS  EXCEEDS  YIELD,  SEE 

CONT 1 NUE 

STORE  UPDATED  BEAM  END  REACTIONS  ON  TAPE   16 

REWIND  15 

REWIND  16 

REWIND  17 

DO  36RI   I C  =  I  ,  M 

IF  I  ICOUNT.GT.  1  )  GO  To  3684 

M  T  P  2  ■  I  6 

READ!  15), (AM «(  I), 1  =  1,  12) 

DO  3687  I C  T=  1  ,  I  2 

AMR  I  ICT  )  =  A  M  R  (  JCT  )  •  F  A  C  T  0  K  I  ICOU.NT  I 


127 


1242 

1243 

1  244 

I  245 

1  246 

1247 

I  2'<8 

I  249 

1250 

1251 

1252 

1253 

1254 

1255 

I  256 

1257 

1258 

125? 

1260 

1261 

I  262 

1263 

1264 

1265 

I  266 

I  267 

I  268 

126? 

1270 

1271 

1272 

1273 

1274 

1  275 

1276 

1277 

I  278 

127? 

1  280 

1281 

1282 

I  2B  3 

1284 

1285 

I  286 

1287 

I  288 

128? 

I  2?0 

12?l 
I  29? 

1273 
1294 
1295 


368m 


WH|  Te  I  16  t  ,  UNK  I  I  I  •  I  =■  1  ,  12  I 

N T  +  1  |/Z-IC0UNT/2 


GO  TO  3  6  8  1 
I TAPE  = ( I COU 
14  T  P  1  »  1  6 
N1P2*  I  7 
I  F  <  I  T  A  P  E 


3690 

368  | 
C 
C 
C 


I  F  (  I  T  A  P  E  •  E  >j  .  1  )  M  T  P  I  *  I  7 

IF(ITAPL.EQ.I)  N  T  P 2  = 1 6 

READ(|S),(AMK(I),I=1,I2> 

READ(NTPI),(AmR2(I),I=1,12) 

DO  36  7  0  I  D  =  1  ,  I  Z 

A  M  R  2  (  1 0  I  =  A  M  R  2 (  I  D  )  +  A  M  R  I  I  D  I  •  F  , 


3693 
95 


UU   J6VU   I  V =  I  ,  1  / 

AMR2(  1  D  )  =  A  M  R  2  (  I  D  )  +  A  M  R  (  IDI'FACTOR!  1C0UNT  ) 

WRITEINTP2I  ,  <  AMR2!  I  )  ,I«1  ,12) 

CONTINUE 

PRINT  BEAM  END  REACTIONS 

I F (  I  PR .EU.O  I  GO  TO  508 
REWIND  NTP2 
IPR  INT  =  0 
00  3693   I MP=  1  ,M 
1F(  I  PR  I  NT. ME. 0> 
PRINT  98 
PRINT  96 
PRINT  95 
IPR INT  =50 
IKRINTMPRINT-1 
RE A0<  NTP2  I  ,  ( AMR (  I  1  . 
PR  INT  99 ,  I  MP  ,  ( AMR (  I 
CONT I NUE 

FORMAT  I  •  MEMDER     X  F 
Z  MOMENT      X  FORCE 

MDMFN  T  •  1 


GO  TO  9  7 


1=1,12) 
V  I  ,  I V=I 


FORCE 
Y 


96 
98 


1  2  ) 

Y  FORCE 
FORCE     Z 


99 

508 

1313 


31  9 


MOMENT • I 

FORMAT136X7H  J  N0DE.54X.7H  K  NODE) 

FORMAT!  |H1,'  MEMBER  END  REACTIONS-MEMBER  COORDINATE 

THAN  K  )  '  ) 
F0RMAT<I5,2X,6M0.1.2X,6FI0.I> 


Z  FORCE     X  MOMENT    Y  MOMENT 
FORCE     X  MOMENT    Y  MOMENT   Z 


SYSTEM  (J  LESS 


*   THANK) 
FORMAT  I  I  5  ,  2X , 6' 
CONT INUE 
FORMATUH  ,35X,I6H  MEMBER  STRESSE  S  i  /  /  ,  I  02H  MEMBER   NODE   SIGBMX 

1  SIGAX      TAUMAX      SIGMA' 

2  ALLOW   HINGE   ) 
FORMAT! 15, 17, 7^10. 0,F 10. 2, 

C 

C  •»•• BEGINNING  OF  BUCKLING  ADDITION 


_  .  •  .  -  w  •  •     —  .  .  .  1 -  _,  . WW*      •        t   ■«-'■-'  '     "i.in/».n        ■»  W  V  l_        J  I  Ml'MA 

SIGMAX      SIGMA1      SIGMA2      VMISES   VMISES/ 


,18) 


72 


THE  BUCKLING  MEMBER  CONTROL  NBM  IS  READ  OFF  THE 


FROM  HERE 
MFMBERSINtjM 

I  F (  I  COUNT  .GT .  I  ) 
I  F  (  N  B  M  )  7  1  ,  7  I  ,  7  Z 


TO  STATEMENT 
1   ]S  ZERO 


NBM 
71   IS  BYPASSED  IF  THE 


FIRST  DAIa  CARD 
NUMBER  OF  BUCKLING 


GO  TO  7  1 


.1,7' 

CALL  BUCKLE! NBM, L,Gi FACTOR! I ) ) 
PRINT  3003 
PRINT  3005 


128 


I  296 
1  2<?7 
I  298 
1  299 
1300 
1301 
I  30? 
1303 
I  30H 
I  305 
1  306 
130  7 
1308 
I  309 
1310 
1311 
1312 
1313 
1  31  H 
1315 
1316 
1317 
1318 
1319 
1  320 
1321 
I  322 
I  323 
I  324 
1  325 
I  326 

132  7 
1  328 
1329 
1  330 

133  1 
1  332 
1333 
13  34 
1  335 
1  336 
1  337 
1338 
13  39 
I  3 MO 
I  3'U 
1342 
I  343 
1  344 
I3M5 
1  346 
I  347 
1  318 
1349 


3005 


3007 


197| 
972 


973 

974 

975 

7  1 

C 

C  •' 

C 


P.G1.15*      MEMBER 
F  CRITICAL     BUCKLE 
V  M  1  S  E  5  /  Y  I  L  L  0  ) 


FORMATllH  ,  I5X  . '(SUCKLING  RF  SUL  T  5  '  ,  /  /  /  ) 

PRINT  3007 

FORMAT!  IH  ,59||   BUCKLING  END 

1AXIAL    ,/,l05H      MEMBER        MEMBERS 
(STRESS        SIoMAI       SIGMA2      VMISE5 

00  975  K K  =  I  ,  N 0 M 
SIGUMX(KK)=0.U 

I =NI  I  ( KK  I 

1L  =  N!  2<KK  ) 

I S I =  2»N! 1 (KK ) -1 

1  b2  =  2*N  J  2 ( KK  I  -  1 
S1GAX 1 =SIGAX1  I  S  1  ) 
SIGAX2=SIGAX( lS2) 

IF  I  IND  I  (  KK  )  .El).  '  NO')  GO  TO  973 
IF(.,N02(KK).EQ«,YESiY'.0R.INf)2(KK).E(J.,YES,Z')  GO 


TO  974 


COMPUTE  STRESS  AT  EACH  INCREMENT  OF  THE  BUCKLING  MEMBER 


00  9 
ICOR 
IF  (T 
DO  1 
5  I  GO 
S  I  GO 
5  1GB 
IF(  T 
IF  (  T 
IF  t  T 
IF(  A 
CONT 
5  IGB 
IT  I  T 
SIGH 
RADI 
S  1  GM 
SIGM 
VM  I  S 

I  (  KK  ) 
VMOY 
PAX  1 
PR  1  N 

I  S  I  G  M 
AXFB 

1  F  (  V 
IF  (  A 
GO  T 
PR  IN 
GO  T 
P  R  I  N 
CONT 
CONT 


72 
"I 

YPEM ( I 
97  1  JO 
7=-URH 
Y=URMY 
=SI GBY 
YPEMl I 
YPEM1 I 
YPEMl  I 
BSISIG 
INUE 
MX  I  KK  ) 
YPEMl  ! 
AX  I  KK  ) 
US=ABS 
A  1  t  KK  ) 
A2I KK  ) 
E5=SQR 
1**2  1) 
(KK ) =V 
AL  =  AM  I 
T  7720 
A2  I  KK  ) 

MOY ( KK 
XFBM. G 
0  9  75 
T  7  7  30 

0  975 

T  7  7  4  0 

1  NUE 
I  NUE 


K  =  1  *  N  I  N  C  R 


>-EQ.6)lC0Rx4 

E  =  I  ,  I  C  0  R 

ZIKK>KI  *AC2 (  I  ,  JOE  )  /  I  2(  I  ) 

I KK  ,K  )  *AC Y  (  I  ,  JOE  t  /  I  Y  I  1  ) 

+SIGOZ 

).EU'6.AND.ABS(SlGrt).GT.AB5(SIGBMX(KK)))SIGBMX(KK)=SIGB 

).Nf6)SlGK  =  ABS(SIGBZ)+ABS(SIG6Y) 

).E««3.0R.TYPEMt  I  ).LQ.5)SIGB»S«RT(SlGBY**2  +  SlGBZ«»2) 

B).gT.ABS(S1GL<MX<KK!  )  )SIGBMX(KK)'SIGB 

»-S 1 GBMX ( KK  • 

).NC«6)  SlGMAX(KK)=5IG3MX(KK)+SIGAX| 

=  S I &OMX ( KK  )  +5  I GAX  1 

(S()rT(TAUMAX(  ISI  )**2+(SlGMAX(KK)/2.  )**2)  1 

=SlGMAX(KK)/2.0+RADIUS 

=  Slc,MAX(KK)/2.0-RADIUS 

T(0.5*|S1GMA1(KKI*»2*SIGMA2(KKI**2+(SIGMA1(KK)-SIGMA2 

MISES/YSTRSI  I  ) 

N  1  ( 5  I GAX 1  ,  S  I  GAX2  ) 

,KK,NIHKM,NI2(KK),iNDl(KK>,|ND2(KK),PAXlAL,SIGMAl(KK>, 

,  VM 1 SES , VMOY I KK  I 

5IGAX  1  |«AX  I  1  ) 

!  .GT  •  I  .000 1  )  PRINT  7742 

T  .  Y5TR5 (III  PRINT  7  7  4  1 

,KK,N|  1  (KK>  .NI2IKKI  ,  INDI  (KK) 

,KK,NI  I  (KK)  ,  N ] 2 ( K  K  )  ,  IN 01  (KK)  ,  1N02IKK) 


END  OF   BUCKLING  ADDITION 


129 


I  350 

I  351 
I  352 
1353 
I  3SM 
I  355 
I  356 
1357 
I  35G 
I  359 
1360 
1  361 
1362 
I  363 
I  36H 
I  365 
I  366 
I  367 
I  368 
1  367 
I  370 
I  371 
13  7.' 
1373 
I  37<i 
I  375 
1  376 
1377 
1  37P 
1  379 
I  380 
I  381 
I  38? 
1  3B3 
I  3BH 
1  385 
1  386 
I  387 
1  388 
1389 
1  390 
1391 
1  392 
1  393 
1  394 
1395 
1  396 
1397 
1  398 
I  399 
1  MOO 
1  '(0  1 
1  102 
I  MO 3 


770  1 

7  7  20 

7730 
7  7 'to 
774  | 
7712 

r 
C 

C 

C     I 

C 


FORMAT  I  i  5  1 


FORM  ATM H  ,5X,l2,8XiI2i2X|I2,7X,A3i8X,Ab,MX,Mri0.0,Fi0.2) 
F  u  H  M  A  T  <  1 H  ,5X,I2,8X,12,2X,12,7X,A3> 
FORMAT!  I  M  ,SX,l2,8X,l2,2X,l2,7X,A3,8X,AS) 

FORMAT!'   •  •  AXIAL  STRESS  EXCEEDS  YIELD  IN  ABOVE  BUCKLING  MEMBER'  I 
FORMAT!*   •  •  C"OSS  SECTION  HAS  STARTED  TO  YIELD  JN  A  b  0  V  E  BUCKLING 
I  M  E  M  0  E  R  '  I 
PRINT  OUT  STRESSES  IN  SHELL  MEMBERS 

f'DATE  JOINT  COORDINATES  FOR  DEFORMED  PLOTS 


8320 
8327 


C 
C 
C 

1  150 


280 


M3[ 


IF(lPLOTD.NE.ll  GO  TO  8327 

DO  8320  J* 1 ,NJ 

1  N  I  =  J  •  6  -  5 

IN2=J»6-H 

IN3=J»6-3 

X  P  (  J  >  =  X  P  (  ,,  )+Dj(  INI  )*FACTOR(  ICOUNT  )  •  0  M  A  G 

YP(J1=YP(J)+DJ( IN2)»FACT0R< IC0UNT)*DMAG 

ZP(JI=ZP!j)+Dj< IN31TACT0R! ICOUNTl'DMAG 

C0M1 1  NUE 

N2=N1+M»LL 

N  3  =  N  2  +  N  E  Q  B  •  L  L 

LB=(MT0T-N31/(NEQ+12) 

I  F  (  N  U  M  P  L  .  E  Q  •  0  )  GO  TO  1150 

IF!  IPl.As.NE.l.OR.ISTOP.Eg.  1  ) 

compute  plate  element  stresses 
•ca!l  5tre5s(c(n]  ),c(n2),c!n3>,negib,lb,ll.neq,nbl0ck) 

C  0  N  T  I  N  U  E 

IF(IPR.EO.O)  GO  TO  28S 

PRINT  3003 

PRINT  280, LOAD*. LOADY.LOADZ 

FORMAT!///,*     INPUT  LOADS. GLOBAL  COORDINATE 

1  •        X  DIRECTION*.  •  ,F8>0i  •  POUNDS*,/. 

2  •        Y  D  I  RF.CT  I  ON  :  •  ,F  8.0  ,  •  POUNDS',/, 

3  •        Z  DIRECT  ION:  •  ,F8.0,  '  POUNDS',///) 
PRINT  H315.REACX,  REACT,  REACZ 

,  F0RMATI55H  MAXIMUM  LOAD  THAT 


SYSTEM '  ,  // 


CANOPY 
CANOPY 
CANOPY 


CAN 


CAM 


1  FB.O.BH   POUNDS,/, 

2  r-  5  H  MAXIMUM  LOAD   THAT 

3  F8.0.8H   POUNDS,/, 
H  55H  MAXIMUM  LOAD  THAT 
5          F8.CBH   POUNDS) 

WPL= VTPL* • 2836 

whpp=kpl*wgtc 

print  m76  ,  wgtc  > wpl  ,wbpp 
■\7h        format!//,  *   weight  of  beam  elements  =* 

1  *   weight  of  plate  elements  =',fb.o,' 

2  '     TOTAL  CflNOPY  WEIGHT         =*,F5.0,* 
2  8  <(     CONTINUE 

REWIND  H 
REWIND  18 


CAN  SUPPORT  IN  X  DIRECTION  IS 
I N  T  DIRECT  ION  !  S , 
DIRECTION  IS 


SUPPORT 
SUPPORT 


IN  Z 


,F5.0,'  POUNDS' 
POUNDS'  ,  /  , 
P  0  U  f  i  D  S  '  ) 
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l  mom 

M05 

1  MO  6 

1  H07 

1  HOB 

1  MO? 

1  M  1  0 

Mil 

1  M  12 

1  M  I  3 

MM 

M  15 

MI6 

Ml  7 

M  18 

MM 

1  420 

M21 

M22 

M2  3 

M2H 

M25 

M26 

M27 

1  M2B 

M29 

1  H  JO 

M31 

M32 

1  H33 

1  M3H 

1  M3S 

I  H36 

M37 

M38 

1  M  39 

MMC 

MM  1 

1  MH2 

1  HH3 

1  MMH 

1  '1MB 

MM6 

1  MM7 

MM8 

MM? 

1  MSO 

1  MSI 

1  MS  2 

M53 

MSM 

M5S 

1  H5#> 

M57 

992 

3  1  M2 
3  1  MM 


3598 
3588 
92 


800 


810 


IT  (  IPl_AS«EQ»  1  .  AN[>.  I510P-NE.  1  )  do  TO  9M5 

CALL  PLOT  ROUTINES 

1F"(  IPLOT  I  .EQ.O'AND.  1PL0TD.EG.0)  dO  TO  3588 

DtJ3b98NPL=l,NV|EW 

ANGL  (  1  M'THETA*' 

AMGL(3l='    PH1=« 

1  F  (  I  ANCiLE  .EQ.U*  AND.NV  IEW.E«.  1  I     GO     TO     31M2 

READ     92,THETA,PH1 

REA0(0.992l     ANdL I  2 >  i  A NGL ( H  ) 

FORMATI2A6) 

GO     TO     3MM 

ANdL (  2  >  =  '      I  20.0* 

ANGL ( M ) = '        30.0 • 

IFilPLOTl.EQ.|l 
•CALL     PL0TSI0,NJ,H,NUMPL,X,Y,Z,JJ,JK,THETA,PH1  ,  T ITLE.AMGL 1 

I  5F 7 »  I 

If(IPL0Tl.EQ.0»0R.ISHIFT.EQ.l)      I5FT=0 

1  F  (  I  P  L  0  T  0  .  E  Q  •  I  I 
•  CALL  PLOTS <  ISFTiNJiM.NUMPL iXP,  YP  ,ZP,  JJ, JK  ,THETA ,PHI  .TITlEiANGLI 

CONT I NUE 

CONTINUE 

FORMAT  < 2F6.  1  ) 

!F  I  IPLAS.NE.  1  |  dO  TO  I  216 

PRINT  3003 

PRINT  800 

T  ORMAT  (////,« 
IS  SUMMARY 

ELX  =  LOADX»FACTOR(  I  ) 

EI.Y  =  LOADY«FACtOR(  I  I 

PRINT  PLASTIC  ANALYSIS  SUMMARY 


PLASTIC 


A  N  A  L  Y  S  I 


) 


ELZ=L 
REX  =  - 
RE  Y  =  - 
R  E  Z  =  - 
PRINT 
FORMA 


0ADZ 
1  .0* 
1  .0* 
1  .0* 
810 
T(// 


•  FAC  TOR 

REACX 

REAcY 

REACZ 

,  E  L  X  ,  E  L 

//, 


I  I  ) 


Y.ELZ.REX  ,R£Y  ,REZ 

APPLIEO  LOAuS  AT  ELASTIC  LIMIT 


APPLIEO  LOADS  AT  ULTIMATE: 


F  <  X  )  =  •  ,FB.O , /  , 
F ( Y  )*•  ,F8.0,/, 
F ( Z  )  =  '  ,F8.U  ,//  , 
F ( X  )  *  »  ,F8.0  ,  /  , 
F( Y  !■» iFB.O,/, 
F  <  Z  >  =  •  ,F8.0) 


P  E  N  =  0 
PLL)X« 
P  L  D  Y  = 
PLDZ  = 
PUEF  x 
A  U  I  R  E 
IF  (  ID 
IF  (  10 
I  F  I  I  D 


.0 

0-0 

0.0 

0.0 

CO 

C  =  ' 

IREC 

IREC 

IREC 


.EQ.  1  )  ADIREC  X' 
.  E  Q  .  Z  >  A  D  I  R  E  C  = '  Y  ' 
.  E  (J .  3  I  ADIREC**  Z' 
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1  450 

1  459 

1  4  60 

1  MM 

1  462 

1463 

1464 

1  465 

1  466 

t  467 

1  468 

14  6  9 

1  47C 

1471 

1  472 

1473 

1474 

1475 

1476 

1477 

14  78 

1  479 

1  480 

148  1 

1  482 

1  483 

1  484 

1  485 

1  486 

14  8? 

1  488 

1  489 

1  490 

1  49  I 

1  492 

1  493 

1494, 

1  495 

1  496 

1  497 

I  498 

1  499 

1  r>oo 

ISOI 

1502 

1503 

1504 

1  505 

1506 

1507 

1508 

1509 

1510 

151  1 

182() 

B30 

820 


I  2  16 


1  960 


19  70 


1  980 


PRINT     8?0,  JOINT ,AD1K£C 

DO      102  Ci     Kt=l»lCOUNT 

PLDX=PLOX+LOADX»FACTOK(Kt) 

PLDY*PLDY  +  L0A[>Y«FACT0N(KE1 

PLDZ  =  PLDZ*LOA(->Z»FACTOR(KE) 

POEF  =  PDEF+DFf  ( KE 1 »FAC  TOR ( KE  1 

PLN=PEN+ENERGY  (KE  ) 

PRINT  8  30,KE,pLDX,PLDY,PL07,POEF,PEN 

F0RMA1  !5X,12,6X,F8.0,3X,F8.0,3X,F8.0,9X,F8.4,  16X.F9.0l 

FORMAT (///,  20x >  'LOAD  I NG  SUMM A R  1  •  ,  / /  ,  4 X  ,  •  L 0 AD >  ,  I  I  X  ,  • A  PPL  I  E D  LOADS  ( 
1LBS)', BX,  'OF ELECTION,  INCHES, NODE',  I3.SX, 'ENERGY  UN-LB)', /,2X, «|NC 
2RrMENT',SX,'F(X)',7X,'F(Y)',7X,'MZ)',5X,'GL0!)AL',A2,'  DIRECTION'! 

C0N1 INUE 

NLS=NL5-I 

IF(NLS«E«.0>  (,0  TO  946 

ZERO  ARRAYS  FoR  NEXT  LOADING  CASE 

F ACTOR (  1  )  =  1  .0 
I  L0AD= 1 
1  C  0  U  N  T  =  0 
LHLT=0 
I ST0P=0 
I  PR  =  0 

ENERGT=0.0 
FACT0T=0.0 
RE ACX=0.0 
REACY=0.0 
RLACZ=0.0 
DO  1960  L I =1 ,200 
P  S  I  G  A  x  <  L  I  )  =  'J  •  0 
PSIGBM ( L  1  1=0.0 
PT AUMX (LI  1=0.0 
PS  IGMX  (LI  1=0.0 
PSIGM1  IL1  1=0.0 
PSIGM2(LI  1=0.0 
IPL (LI  1=0 
VHOYILl  1=0.0 
VH0Y21L1  1=0.0 
DO  1 970  LJ=1  ,  20 
REAC I  ( L J  1  =0.0 
REAC2(LJ)=0.n 

REAC3 ( L J  1  =0.0 

REAC4 (L J  I  =0.0 

REAC5I L J  1 =00.0 

REAC6I L J  1 =0.0 

DO  1 980  LK= 1 ,600 

DJP(LKl=0.0 

A ( LK  I  =0.0 

AE ( LK  1  =0.0 

RLILK)=AB5(RL(LK)1 

DO   1990  LL=1,M 

BM(LL)=PBM(LL) 

WX ( LL  1  =0.0 
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IS!  2 

1513 
ISM 
1515 
1516 
151  7 
15  18 
15  1V 
1520 
1521 
1522 
1523 
I52M 
1525 
1526 
15  27 


I  990 


VH6 


1  192 
I  4  9 'I 

1  500 


W  Y  (  L  L  )  =  0  .  0 

W  L  ( L  L) =  0  •  0 
L  M  L  (  L  L  >  =  0 
0  0   1990  LAI=1,I2 
AMLILL»LAj)=0.0 
GO  TO  9M5 
CUNT  I NUE 

IF(NST.GT.l)  r,0  JO  9HH 
G  U  10  15  0  0 
P  !<  1  N  T  I  H  9  H 

rORMAT  (  I  H  I  ,  60l|  TOO  MANY  ONKNOWN  DISPLACEMENTS.  REDlMLNSlON  Sf|FFNE 
1  SS  ARRAY   ) 
CON!  I  NOE 

lP(IFINV.EQ.l)  CALL  MNSHV 
STOP 
END 
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i 

2 
3 
4 
5 
6 
7 
8 
9 
IC 
I  I 
12 
13 
I 'I 
IB 
16 
17 
18 
1  9 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
27 
30 
3  1 
32 
33 
34 
35 
36 
37 
38 
3V 
40 
41 
42 
43 
44 
45 
46 
47 
48 
47 
50 
51 
52 
53 


SUBROUTINE  PROP 


SUBROUTINE  TO  COMPUTE  SECTION  PROPERTIES  FOR  MEMBERS 

COMMON /MPROP/AXP,IXP,|YP,j/P,ACXP,AcrP,ACZP.rP,H,b»TW,iF,TY 
REAL  I  XP , I YP ,  [ ZP 


PES.BHC 


INTEGER  TYPES 

PI  =3.  1  4  1592653 

GO  TOO, 2,3, 4,5),  TYPES 

AXP*(H-2.»TFI.TW*2.»B»TF 

F  P  =  A  X  P  /  (  (H-TF  | • T W ) 

IYP=B»»3«TF/6.*TW»»3»(H-2 


•TF  )/|2 


|YP  =  B»»3»TF/6.  +  TW»»-»»lH-2.»TF)/12. 

1ZP«2.»TF*B»(  (H-TFI/2.  >»»2+B*TF»«3/6.+TW«(H-2.*TFi*»3/12. 

I  XP=  (  (H-TF  I»TW»»3  +  2.»D»TF»«3)/3. 

ACYP=B/2. 

ACZP"«H/2. 

ACXP»TF 

PIZ=B*(H-TF)»lF+((H-2.0«TFI»»2l»TW/4.O 

BRZ  =  PIZ/I  I  Z  P / A  C  Z  P I 

BRC=BRZ 

RETURN 
!  AXP«2.»(H-2.»tFI»TW+2.«(B-2.»TWI«TF 

FP1=AXP/(2.»TW*(H-TF») 

FP2  =  AXP/( 2«»TF»  I  B-TW  )  ) 

FP*F  P  1 

IF (FP2.GT.FP1  )  FP  =  FP2 

IYP  =  TF*(B-2.»Tw)«*3/6.+2.»(H-2.»TF  » • TW» (  (B-TWI/2.  )»»2 
1    + ( H-2  .  •  TF  )  »tW»»3/6. 

|ZP=TW»(H-2.»TF»»,3/6.+2.»(B-2t»TW)«TF»((H-TF)/2.)»»2 
1    » ( B-2  .*TW) *TF« »3/6. 

IXP=2.»(B-TW)«»2«(H-TFl»»2«(TF*TW/( IB-TW)»TW*(H-TF)»TF> I 

ACYP-B/2. 

A  C  Z  P  *  H  /  2  . 

T*TF 

I  F  (  T  .  L  T  .  T  w  )  T  =  T  W 

ACXP«IXP/(2.»(8-TW)*(ri-TF)*T) 

PIY=(H-2.0»TF)»(b-TWI«TW+TF»0.5»(B-2.0«TW)*»2 

PIZ=<B-2«0»TWI«lH-TF)»TF+TW»0.B»(H-2.0«TF)»»2 

BRY=P1  Y/ (  I  YP/ACYP  ) 

BRZ  =  PI  1/ (  I  ZP/ACZP  ) 

BRC= ( BRY+BRZ  )  /2,o 

RETURN 
,  H=H/2. 

AXP=P|»«H»»2-(H-TW)»»2I 

FP  =  2. 

!XP  =  2.«Pl«(H-rW/2.  )»»3*TW 

I YP= I XP/2. 

I  ZP=  I  YP 

ACXP*H 

ACYP*H 

ACZP-H 

PlY  =  ((4.0/3.0)*TW«H)»(3.0»H-3.0»TW*Tlr**TW/Hl 

BRC=PI  Y/(  I  YP/H  > 


134 


5«i 
55 
56 
57 
58 
S? 
60 
61 
62 
63 
6M 
65 
66 
67 
68 
6? 
70 
71 
72 
73 
7" 
75 
76 
77 
78 
7V 
80 
81 
82 
83 


RETURN 

AXP=B»H 

F  P  =  6  .  /  5  . 

IYP=H«B»*3/12. 

I  ZP=8«H»«3/1 2. 

BETA«|./3.-0.2l»(D/K)*(  1.-0  •••(/(  I2.»H»»M  I  ) 

IF<D.GT.H)  BEtA«|./3.-0.2I»(H/B)«(  1  .-(  IH/B)**'</I2.  >  > 

I  XP  =  BETA»H»B» .3 

I  F  i  B . GT  .  H  >   IXP  =  6ETA»B«H»»3 

ALPHA=.2l5?7»(H/B)»». 175 

IFIB.GT.H)  ALPHA«.2  159/»(B/H)»».175 

IMBETA.GT. 0.263  )  ALFHA=BETA 

ACYP«B/2. 

ACZP«H/2. 

ACXP'I BETA/ALPHA ) *B 

IFIB.GT.H)  ACXP-BETA»H/ALPHA 

BRC=I  .5 

RETURN 

H  =  H  /  2  . 

AXP=PI ♦H*»2 

FP= 10./9. 

I  YP  =  P  |  •»••<*/",  . 

1 ZP=  I  YP 

I  XP  =  2.  • I YP 

A  C  Y  P  =  H 

ACXP"H 

ACZP-H 

BRC=1  .7 

RETURN 

END 
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i 

2 

3 

H 

5 

6 

7 

8 

9 

10 

1  1 

12 

13 

I  H 

15 

I  6 

17 

16 


10 

20 

30 


SUBROUTINE  Q  t  A  M  (JAK.SMK.MBANDI 

C0NM0N/tM/LM(2M),M0,N5,5(2't,2m,P(2H,SI,XH(2M),SA(12,2M),TT(l2,'U 
DIMENSION  JAK  (  I  2 »  ,SMH (  I  2  ,  1  2  ) 


DO  I  0 
LM(  I  I  ' 
DO  20 
LM(  1  I  > 
DO  30 
DO  30 
S(  I  ,J) 
N  S  =12 
ND  =12 
N0M=2H 


CALL  CALBAN 

RETURN 

END 


1  =  1  ,  1058 

0 
1=1,12 

JAK  (  I  ) 
1=1,12 
J=I  ,  1  2 
=  SMRI  I  , J  ) 


(MBAND,NDIF,LH,XH,S,P,ND,NDM) 
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i 

2 
3 

5 

6 

7 

B 

9 

10 

I  1 

12 

I  3 

I  M 

IS 


10 


Sli(lK0UT|NE  BOUND  IIDiHKAHOI 

C0MM0N/EM/LM(2'»)  ,ND,NS,S(2H,2M)  ,  FM  2H  ,M  )  ,  X M ( 2  Ml  ,5A(  1  2  ,  2 H)  ,TT(  12, M) 


DO  10 
L  M  (  I  )  i 

NS*1 
ND*  I 
NDM=2H 
L  M  (  1  )  = 
SI  1  ,  I  ) 


1  =  1  ,  1058 
0 


ID 
1 


E20 


CALL  C ALU AH 
R  E  T  U  N  N 
END 


lM»AND,f«IDlF,LM,XM,S,r,ND,NDM) 
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l 

2 

J 

M 

5 

6 

7 

6 

9 

10 

1  I 

I  2 

1  3 

M 

15 

1  6 

1  7 

ie 
i? 

20 
21 
22 
23 

2M 
25 
Z(> 

2  1 
28 
2V 


SUBROUTINE  SOLVE  I  HTOT  ,  MB  A  NO  ,  NEQ  i  NUMNP  ,  NUMEL  f  LL  .  NEQB  i  NULOCK  ) 

COMMON  All) 

RIGHT  HAND  5  1  l)E  (ON  TAPE  3) 

Nl  =  I 

N2  =  NI+NEQD«lL 

CALL  1NL  ( A ( N  |  >  ,NUMNP  ,NEQB  iLL > 

FORM  TOTAL  STIFFNESS  MATRIX    (ON  TAPE  41 

NE  2B-2«NEQB 

NN2*NI+NE2B»MbAND 

NN3=NN2+NL2B*lL 

CALL  AD05TF  (  A  I  N  I  )  ,  fi   (  NN2  I  ,  A  (  NN3  )  ,  NUME  L  ,  NBLOC  K  ,  NE  2B  ,  LL  .  Mo  A  :iD  I 

N2*N I ♦NEQB«MDaND 
N3"=N2  +  NEQB»LL 
NH=N3+H«LL 

SOLVE  FOR  DISPLACEMENT  UNKNOWNS 

NSB"= ( MBAND  +  LL  I  «NEWB 

N5BB  =  NEQB»LL»(2*(MBAND-I  I  /NEQB  ) 

IFINSBB.LT. NSBI  NSBB=NSB 

N4=NJ+NSBB 

CALL  USOL  (A(Nl»,A(N3),A(NH),NEQB,MBAND,LLiNBL0CK.NSBtH,3,7,2,2) 

PRINT  DISPLACEMENTS 

N2-NI +NEQB»LL 

CALL  PRINTO  ( A  I  N  1  )  ,  NEQB , NUMNP  ,  LL , NBLOCK  ,  NEQ I 

RETURN 

END 
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7 
3 
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6 

7 

8 

? 

10 

1  1 

12 

13 

15 

16 

I  7 

ie 
1? 

20 
21 
22 
23 
24 
25 
26 
27 


SUBROUTINE  C  A  i_B  A  N  (  MU  AMD  ,  ND  1  F  ,  LM  ,  X  M  »  S  ,  r  .ND.NDM) 
•CALCULATES  OAnO  WIDTH  AND  WHITES  STIFFNESS  MATRIX  ON  TAPE  8 
DIMENSION  LM(|I,XM(I),5(NDM,NDM),P(NDM,H) 

MIN=IOOOOO 

MAX«0 


DO  800  L=l »ND 
IF  (LM(L  )  .EQ.O>  GO  TO  800 
IF   ILH1D.GT.MAX)  M  A  X  *  L  M  I  L  ) 
IF  ILMID.LT.mIN)  MlN  =  LM(L) 
800  CONTINUE 


ND1 F«MAX-MIN< I 

IF   (NDIF.GT.MBAND  )  MBAND«NDIF 

LRD=ll  *ND»  (ND  +  6) 

WRITE  (8)  LRD.ND, (LM(  I  )  , I -1  ,ND )  ,  (  ( 51  I  , J)  , 1-1  ,ND )  , J=l  ,NU  I  , 
1  1(P1I,J),I«=1,ND),J=1,H),(XM(I),I  =  I,ND) 

IF1LRD.GT.217) 
•WRITE(ll)  LRD,ND,ILM(I),I»l,ND),MS(l,J),I  =  l,ND),J»l,ND),l(Pll,J), 
II*ltND)|J«l|H),lXMlI),i*l|ND) 

RETURN 
END 


QUAD  100 

QUAD  101 

QUAD  102 

QUAD  103 

QUAD  101 

QUAD  105 

QUAD  IU6 

QUAD  107 

QUAD  108 

QUAD  113 

QUAD  115 

QUAD  116 
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i 

2 
3 

5 
6 
7 
8 
? 
10 
I  I 
12 
13 
IH 
15 
16 
1  7 
16 
1? 
20 
21 
22 
23 
2H 
25 
26 
27 
28 
29 
30 
31 


7B0 


600 


700 
800 


SUBROUTINE  I  Nt_  (  B  ,  NUMNP  ,  NEUB  ,  LL  I 

FORM  RHS  IN  BLOCKS  OF  NEQB  ON  TAPE  3 

COMMON/LOADS/ 
•  A<600|,AML(|U0,I2),LMLU00),AE(6U0),AC(600I  .01606) 

DIMFNSION  B(NEQB,LL) 

NT-3 

REWIND  NT 

KSHF'O 

DO  750    I » 1 ,NeQB 

00  750   K»l ,LL 
Bt  I  |K (=0.0 

NUMEQ=6»NUMNP 

DO  800   NN= 1  ,NUMEQ 

1  I  -NN-KSHF 

!F(  I  I  .LE.OI  GO  TO  BOO 

DO  600   K=  I  ,LL 

B (  1  1  ,K  )  "     A  INN »*AE (NN  1 

IF  (  1  ! .ME. NEQB  )  GO  TO  800 

WR I TE ( NT  I  B 

KSHF-KSHF+NEUB 

DO  700    I » I ,NEQB 

DO  700   K«l  ,LL 

Bl  I  ,K  )»0.0 

CONT INOE 

WR! TE (NT  I  B 

RETURN 

END 
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i 

2 
3 

M 
B 
6 

7 

e 

v 

10 

1 1 

12 
13 
1M 
IB 
16 
17 
IB 
19 
20 
21 
22 
23 
2M 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3M 
3B 
36 
3  7 
38 
39 
MO 
Ml 
M2 
M3 
MM 
MB 
M6 
M7 
MO 
M9 
BO 
Bl 
52 
53 


50 


100 


200 


75 


SUBROUTINE  ADdBTf   < A  ,  R  ,  S T R  ,  NUME L  ,  NBLOCK  ,  NE 2B  ,  L L  ,  MR  A  NO 
FORMS  GLOBAL  EQUILIBRIUM  EQUATIONS  IN  BLOCKS 
DIMENSION  AINe2B,MBAND>,B(NE2B,LL),STR(M,LL>,SS(1) 
COMMON  /EM/  LRD  ,ND iLM (  1056 ) 
EQUIVALENCE  (S3,ND) 

NEQB-NE2B/2 
K=NEQB+ I 
X  =  N BLOCK 
MB*SQRT  (  X  ) 
MB=MB/2* I 
NEBB»MB»NE2B 
MH«I 

n  s  m  r  f  r  -  o 

REWIND  3 
REWIND  M 

DO  50   L=l ,LL 
DO  50    1  =  1  ,1 
STR (I.LI  «  1.0 


ADDST 


FORM  EQUATIONS  IN  BLOCKS 


(  2  BLOCKS  AT  A  TIME) 


DO  1000  M»l  .NRLOCK   ,2 

DO  100  I = I ,NE2B 

DO  100  J= 1  .MBAND 

A ( I , J ) *0. 

READ  (3)   (  ( B I  I  .L  I  .  I 3 I  ,NEUB  I  ,  L = 1  ,LL  ) 

IF   (M.EQ.NBLOcK  I  GO  TO  200 

READ  (3)   (  (B (  I  ,L )  . I *K  ,NE2B  )  ,L=1  ,LL > 

CONT I NUE 

REWIND  7 

R  E  W  i  N  0  A 

NA=  7 

N  U  M  L  =  N  U  M  7 

IF  I MM.NE  .  1  )  GO  TO  7  5 

NA  =  8 

NUME*NUMEL 

NUM7  =0 

DO  700  N  =  1  , N  U  M  E 

READ  (HA)  LRD,(SS(I)il=l.LRD) 

DO  600  I  =  1  .NO 

LMfJ=  1  -LM  (  I  ) 

I  I  «LM (  I  I  -N5H  I  F  T 

IF  I  I  I  .LE.O.OR-  I  I  .GT.NE2U  )  GO  TO  600 

DO  300  L=I  iLL 


ADDST  7 

ADDST  8 

ADDST  9 

ADDST  10 

ADDST  11 

ADDS!  12 

ADDST  13 

ADDST  1M 

ADDST  15 

ADDST  i6 

ADDST  17 

ADDST  16 

ADDST  20 


ADDST  28 

ADDST  29 

ADDST  30 

ADDST  31 

ADDST  32 

ADDST  33 

ADDST  3M 

ADDST  36 

ADDST  38 

ADDST  39 

ADDST  MO 

ADDST  M2 

ADDST  M3 

ADDST  MM 

ADDST  M6 

ADDST  M7 

ADDST  M8 

ADDST  M9 

ADD5T  50 

ADDST  51 

ADDST  B2 

ADDsT  53 

ADDST  5M 

ADDST  57 
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54 
55 
5* 
57 
58 
59 
60 

6  I 
62 
63 
64 
65 
66 
67 
68 
69 
70 

7  I 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


300 


390 
MOO 
500 
600 


650 


660 


700 


000 


DO  300  J= I  ,  H 

KK=ND» ( ND  +  J  )  +  1 

B  I  I  I  ,  L  >  =  B  (  I  I  ,  L  >  ♦  S  5  <  I*KK)»STR(J,LI 

DO  500  J=  1  .I'D 

JJ=LM(J)*LMN 

IFIJJI  500,500.390 

KK«NO«J+ 1 

A (  I  1  ,  JJ  )  *A (  I  I  ,  JJ)*SSI  I  *KK  ) 

CONT I NUE 
CONT I NUE 

DETERMINE  IF  STIFFNESS  IS  TO  BE  PLACED  ON  TAPE  7 


IF  ( MH.GT  .  I  )  GO  TO  700 

DO  650  I  *  1  .ND 

I  1 nLH I  I  )  -NSH  IFT 

IF(  I  I  .GT.NE2B.AND.I  1  .LE.NEBB) 

CONT  I  NUE 

GO  TO  700 

WRITE  ( 7  )  LRD,  «  SS (  I  1,1  =  1  ,LRD  ) 

NUM7«NUM7+ ! 


GO  TO  660 


CONT I NUE 

WRI  TE ( 4  )   ((A<|,J),I*l,NEUB>,J=l,MBAND),(<BU,U.I*l,NE(iB).L*l,LLI 

IF (M.EQ.NBLOCK >  GO  TO  1000 

WRITE(H)  (  ( A(  I  iJ)  ,  I=K  ,NEZB  )  ,  J=l  ,HBAND)  , (  IB! 1  ,L )  i  I=K  |NE2B  )  .L*l  ,LLI 

IF  ( MM.EQ.MB  )  MM  =  0 

MM«MM+ I 

NSHIFT=NSH JFT+NE2B 

RETURN 


END 


ADDST 

58 

ADOST 

5  9 

ADOST 

60 

ADDST 

6  1 

ADDST 
ADDST 

62 
63 

ADOST 
ADOST 

64 
65 

ADDST 
ADDST 

66 
67 

ADDST 
ADOST 
ADOST 

68 
69 
70 

ADOST 
ADOST 
ADDST 

7  1 
72 
7  3 

ADDST 
ADDST 

74 
75 

ADDST 
ADDST 

7  6 
77 

ADOST 
ADDST 

78 
79 

ADDST 
ADDST 

80 
8  1 

ADDST 

83 

ADDST 

84 

ADDST 
ADDST 

P.  6 
87 

ADDST 
ADDS! 

88 

89 

ADDST 

90 

ADDST  95 
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i 

2 
3 

H 
5 
6 

7 

e 

9 
10 

1 1 

I  2 
13 
14 
15 
16 
1  7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
3C 
31 
32 
33 
31 
35 
36 
37 
38 
39 
40 
Ml 
H2 
13 
44 
•45 
'16 
47 
H8 
49 
50 
51 
52 
53 


C 

c 


105 

I  10 

1  15 
1  16 

120 
125 

I  30 


SUBROUTINE  USoL  ( A  ,B  ,M AXB  ,NEQB  ,M0  ,LL  i  NBLOCK  .  NSB  ,  NORG  ,  NBKS  .NT  I  , 
>  NT2.NRST) 

DIMENSION  A(NsB),e(NSB).MAXB(NEQB) 

NCOUNT  =  0 

NC-MB+LL 

NBR  = (MB-  1  )  /NEQB*  1 

INC=NEQR-1 

NHB=NEQB*MB 

N2=NT2 

N1»NT  1 

REWIND  NORG 

REWIND  NBKS 


REDUCE  EQUATIONS   BL OC K -B T -BL OCK 


DO  900  N* 1  ,N8L°CK 

IF  (N.GT • I • AND«NbR«EGU  1  I  GO  TO  110 
IF  1NBR.EQ.  1  )  GO  TO  105 
REWIND  Nl 
REWIND  N2 
NI  =  NI 

IF  (N.EQ.  1  1  NI=N0RG 
READ  (Nil  A 
DO  300  I  »  1  ,NEqB 
D=A ( I ) 

IF  (Dl   I  15,300, 120 
M=NEQB» ( N-l » ♦ 1 
PR  INT  116,    M ,0 

FORMAT  (33H0SET  OF  EQUATIONS  MAY  BE  SINGULAR     / 
26H  DIAGONAL  TERM  OF  EQUATION     18,  8H   EQUALS 
NCOUNT  =  NCOUNT  ♦  I 
IF (NCOUNT. EQ. 1 0  |  STOP 

I  1  =  1 

DO  125  J=2,NC 

II  =  11 +  NEQB 

A  (  I  I  l=A I  I  1  l/D 


IPE12.4  ) 


DO  130  J= I .NMB .NEQB 

IF  ( A( J  1 .NE.O.  »  MAXB1  I  I  »J 

CONTINUE 

JL-1 +1 

IF  (JL»GT.NEQB»  GO  TO  300 

11*1 

DO  200  J=JL,NEQB 

11=11 +MEQB 

I F (  I  I .GT .NMB I  GO  TO  200 

C=A( | I ) 

IF  (C.EQ.Q.D)  GO  TO  200 

C=C»A ( I ) 


USOL 

1 

USOL 

2 

USOL 

3 

USOL 

4 

USOL 

5 

USOL 

6 

USOL 

7 

USOL 

8 

USOL 

9 

USOL 

10 

USOL 

I  1 

USOL 

12 

USOL 

1  3 

USOL 

1H 

USOL 

15 

USOL 

16 

USOL 

I  7 

USOL 

18 

USOL 

19 

USOL 

20 

USOL 

21 

USOL 

22 

USOL 

23 

USOL 

24 

USOL 

25 

USOL 

26 

USOL 

2  7 

USOL 

29 

USOL 

30 

USOL 

31 

USOL 

32 

USOL 

33 

USOL 

34 

USOL 

35 

USOL 

36 

USOL 

37 

USOL 

38 

USOL 

39 

USOL 

40 

USOL 

41 

USOL 

42 

USOL 

4  3 

USOL 

44 

USOL 

45 

USOL 

46 

USOL 

47 

USOL 

48 

USOL 

49 

USOL 

50 
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54 
S5 
56 
57 
58 
»9 
60 
61 
62 

63 
64 
65 
66 
67 
68 
6V 
70 
71 
72 
73 
7 'I 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
8? 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


C 

C 

C 


KKcJ- I  I 
MAX=MAXB< I ) 
DO  1 50  JJ* 1  I  ,mAX ,NEUB 
150  A  I  JJ  +  KK  )  -A ( JJ  +  KK )-C»A ( JJ ) 

KK=J  +  NMB 

JJ* I +  NMB 

DO  175  L=l  ,LL 

A ( KK I «A (KK  >-C»A ( jJ 1 

KK-KK+NEQB 
175  JJ-JJ+NLQB 
200  CONTINUE 
300  CONTINUE 

WRI  TE  1 NBKS  I  A  »MAXB 

SUBSTITUTE  INTO  REMAINING  EqUAUONS 


DO  800  NN* 1 ,NB" 

IF ( N+NN.GT .NBLOCK I  GO  TO  800 
NI  *N1 

IFIN.EQ.  I  I     Ni='NORG 
1  F < NN.EQ.NBR 1     NJ.NORG 
READ     (Nil     B 
IL* 1 ♦NN»NeQB«nEQB 
DO     700     IM.NEqB 
I  I«IL 

DO     690     K=l ,NEO« 
IF     (II .GT.NMB )     60     TO    690 
11       C*A(  I  I  ) 

IF      (C.EQ.O.O)     GO     TO     690 
C=C«A I K  1 
MAX=MAXB ( K ) 

KK^l-l  I 

DO  640  JJ* I  I  ,MAX  ,Nr«B 
640  B I JJ+KK )=B( JJ+KK )-C« A ( JJ ) 

KK«I  +NMR 
JJ=K+NMB 
DO  650  L=l iUL 
B(KK  )  =B (KK  )-C»A ( JJ1 
KK*KK+NEQB 
650  JJ"JJ+NEQB 


TO  750 


69U 

I  1  =  1 I-INC 

700 

IL=1L+NEQB 

IFCNBR.NE.il  GO 

DO  740  1  =  1  ,NSB 

740 

A(  I  )»B(  I  ) 

GO  TO  800 

750 

WRITE  IN2)  n 

800 

CONT 1 NUE 

USOL 

51 

USOL 

52 

USOL 

53 

USOL 

54 

USOL 

55 

USOL 

56 

USOL 

57 

USOL 

58 

USOL 

59 

USOL 

60 

USOL 

61 

USOL 

62 

USOL 

63 

USOL 

64 

USOL 

65 

USOL 

66 

USOL 

67 

USOL 

68 

USOL 

69 

USOL 

70 

USOL 

71 

USOL 

72 

USOL 

73 

USOL 

74 

USOL 

75 

USOL 

76 

USOL 

77 

USOL 

78 

USOL 

79 

USOL 

80 

USOL 

81 

USOL 

82 

USOL 

83 

USOL 

84 

USOL 

85 

USOL 

06 

USOL 

87 

USOL 

88 

USOL 

89 

USOL 

90 

USOL 

91 

USOL 

92 

USOL 

93 

USOL 

94 

USOL 

95 

USOL 

96 

USOL 

97 

U50L 

98 

USOL 

99 

USOL 

100 

USOL 

101 

USOL 

102 

USOL 

1  03 

USOL 

104 
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108 

M  =  N  1 

109 

Nl  «N2 

1  10 

900 

N2  =  M 

1  1  1 

C 

1  12 

C 



BACKSUBSTITUT 1  ON  -  Kt 

1  13 

C 

1  14 

LS=LL»NEQB 

1  IB 

NEB=NEOB» ( NBK+ 1 ) 

1  16 

NUH=NBR«NEQB 

1  17 

MAX  =  NF_B»LL 

1  16 

DO  905  1=1 ,MAX 

1  19 

905 

B( J )=C). 

120 
12! 
122 

C- 

REWIND  NRST 

DO  1 000  N* 1 .NoLOCK 

123 

BACKSPACE  NBKS 

124 

READ  <NBKS)  A.MAXB 

1  25 

BACKSPACE  NBKS 

126 

DO  ,9  10  l_=l  ,LL 

127 

K  *  L  •  N  E  B 

128 

DO  910  J=l ,NUM 

129 

1 =K-NEUB 

1  30 

B(K  )=B<  I  1 

1  31 

9  |  0 

K=K-  1 

132 

C 

133 

I  =NM3 

1  34 

DO  920  1=1,  t.L 

1  35 

K=  <  L-  1  1  »NEB 

1  36 

DO  920  J=l ,NE«B 

1  37 

1  =  1  +  1 

1  38 

K=K+  I 

1  3  9 

9  20 

B(K  )*A(  I  ) 

MO 

C 

1  Ml 

DO  955  1  =  1  ,NEQB 

1  '12 

J  =  IJEQB+  1  -  I 

1  4  3 

MAX=MAX8 ( J ) 

1  44 

IE  ( A( J)  .EQ.O.  I  CO  TO 

1  4  5 

DO  950  L=l  ,LL 

1  4  6 

KK-J* ( L-  1  )  «NEB 

1  47 

JJ»KK+ 1 

1  48 

IL  =  J  +  NEijB 

1  49 

C  =  B  (  K  K  ) 

150 

DO  940  1  I  =  1L  .MAX  ,NEQB 

151 

C=C-A  (  1  I  1  *B  UJ  ) 

152 

940 

JJ'JJ* 1 

153 

950 

B IKK  )  =C 

154 

955 

COMT INUE 

155 

C 

156 

I  =0 

157 

DO  960  L  =  1  .  L  L 

158 

K  -  (  L  -  1  )  •  N  E  B 

159 

DO  960  J- 1 ,MEyB 

160 

K=K*  1 

!  61 

1  =  1  +  1 

955 


USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 
USOL 


145 


162 

I  63 
16H 
165 
I  66 
167 
I  68 


•i'jO     A  (  I  )  "  n  •  K  I 

WfM  TE      (NH5T  )      (  A  (  i  )  ,  I  =1  ,1.5  ) 
I  000     C0N1  I  NUE 


RETURN 
END 


USOL 

1  S9 

USOL 

1  60 

USOL 

1  b  1 

USUL 

162 

USUI. 

1  6  3 

U50L 

164 

USOL 

165 

146 


i 

2 
3 
M 
5 
6 
7 

e 
<? 

10 

1 1 
i  z 

13 
M 
15 
16 
17 
16 
IV 
20 
21 
22 
23 
24 
25 
26 


150 


250 
500 


SUBROUTINE  PKlNTD  (  B  i  NEU  B  i  NUMNP  ,  LL  >  NBLOCK  i  NEQ  ) 
DIMENSION  B(NE^B) 
C  0  M  M  0  N  /  5  0  L  N  / 
'  DJ(6  00),Ali(600),AMR(l2),JAK(12),TITLE(20) 

REWINO  2 


M  =  N  E  Q 

N  N  *  N  E  Q  B  < 

N  *  N  U  M  N  P 


NBLOCK 


KK= 1 , NUMNP 


; i  =  i  ,6 

•NN I  GO 
GO 


DO  500 

1=6 

DO  250 

IE (M.GT 

IF (M.EQ.O  ) 

READ  (2)  B 

NN*NN-NEQB 

K"H-iNN 

SET  DISPLACEMENTS 

DJ( M  1  *  B  <  K  > 

M»M-I 

1  =  1-1 

N*N-1 

RETURN 

END 


150 
150 


INTO  DJ-ARRAY 
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i 

2 
3 

M 
5 
6 
7 
8 
9 

10 

1  I 

I  2 

I  3 

I  M 

15 

I  6 

I  7 

18 

19 

20 

21 

22 

23 

2M 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3M 

35 

3  6 

37 

38 

39 

MO 

Ml 

M2 

M3 

MM 

M5 

M6 

M7 

H8 

M9 

50 

51 

52 

53 


SUBROUTINE  TPLATEINUMEL»X.r.Z ,NUmNP ,  MO AND , E i GNU , ARE A T I 

COKMON/PLOT/ic'  (  1501  ,|C2(  150  1  ,IC3(  150  I  ,  ICM<  150) 

COMMON/QTSARG/ 
1XX<5),YY(5I,ZZ<S),HM(5),HP(5),CM(3,3),ALFA(3),HW(5),RH0<S,3I,P(5) 
2,  T(5),DTI5),SM(5.3),BM(5,3),rDlS(36),TR0T(36),5(30,301,R(30) 

C0MM0N/EM/LM(2l»,ND»NS,ASAl2M,2M),RFl2M,M),XM<2M),5A<l2,2M) 
1  ,SF(  12, M  >  ,PFI2*0 

DIMENSION  XI  1  )  . Y (  1  )  ,Z I  I  1  ,  C (  I  2 ,  I  )  ,  1 X (  7 )  ,  I Y (  7  I  ,  E L ( M  I  ,  TL 0 ( 5  ,  M  1 

I Y (5  )  =0 

I  Y  (  6  )  *  1 

EL  I  31=0.0 

E  L ( Ml  =  0 . 0 

AREAT'*0.0 

AREAP=0.0 

LL      =  M 

N  D  M     =  2  M 

MTYPE  *  6 

ISTOP  =  0 

NS      =6 

DEGREES  OF  FREEDOM  PER  NODE 

NPF     =  6 

MID-SIDE  NODES 

MID    =0 

GLOBAL  REFERENCE 

IDI  5   =0 

I  ROT   *  0 

ELASTIC  CONSTANTS 
CI  7  )       C(  8» 
C-XX        C-x* 
DO  10   N-  1  ,12 


10 


SHEL  35 

SHEL  36 

SHEL  37 

SHEL  3' 

•  •  • 

SHEL  tj 


FOR  DISPLACEMENTS/ROTATIONS 


FOR  ISOTROPIC  MATERIAL 


C (  9 1=0 

c-xs 


C(  101 
C-YY 


C  I  1  1  )«0 
C-YS 


CI  12  I 

G-XY 


C  (  N,  I  I 
CI  7,11 
CI  8,11 
CI  10,  I  ) 
C  I  12,  1  I 


0.0 
E  / 

GNU 


I 1-GNU»GNU) 
•  C(7,  1  I 


CI  7,  1  1 

0.5»E  / 


I  I +GNU I 


••»  SET  ELEMENT  LOAD  MULTIPLIER  =  I  FOR  LATER AL ( PRESSURE  )  LOADING 

DO  II    1*1,5 

DO  11    J=l ,M 
I  I  TLOI  I  ,  Jl  "  CO 
TLO( 1,1)  *  1.0 

••»  READ  AND  PRINT  OF  ELEMENT  DATA 

WRITE  I  101  NUMEL 

WRI  TE  16,  2003  ) 
NH  =  0 
100  READ  (5,1001)  MM , I  I Y I  I  )  , I  =  I  , M )  ,  I  Y  I  7  1  , EL  I  1  )  . EL  I  2  I 


SHEL  7M 
SHEL  75 
SHEL    76 


SHEL 
SHEL 


77 
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5H 
55 
56 

57 

RS 
69 
60 
61 
62 
63 
6H 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7H 
75 
76 
77 
78 
7? 
8C 
81 
82 
83 
8H 
85 
86 
87 
88 
89 
70 
91 
92 
93 
9H 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10M 
105 
106 
107 


1  10 

50 
H5 


30 

60 
65 

70 


7  2 


HO 


N  N  ■=  N  N  ♦  1 

IF  (MM-NN)  H HO » 50. 6  0 

DO  H5  1-1,7 

I  X  1  II  =  I  Y  (  I  I 

INCL-IYJ7) 

!  F  <  1  Y  I  6  I  .  E  Q  .  0  >   1  Y  (  6  I  =  1 

I  M  =  I  Y  (  6  ) 

1FI1NCL.EQ.0)   I  N  C  L  = I 

N  N  5  =  5 

IF  (IY(5).EG).0>  N  N  S  =  H 

IF  I  I  Y ( H  I  .EQ.O  •  NNS  =  3 

R  H  n  H  =  C  (  3  ,  I  M  I 

A  L  F  A  (  I  )  =  C  i  H  ,  I  M  » 

ALF A ( 2 ) =C (5 , Ik  I 

ALFA(3)=C(6,IH) 

CMI1,1)=C(7,IhI 

CM (  1  ,2  I =C ( 8, IM  > 

C  M  (  I  ,  3  1  =  C  I  9  ,  I  M  » 

CHI  ?,.  2  )=C  (  10,  IM  ) 

CH(2,3)=C( 1 1 , I M 1 

CM( 3  ,3 1 =C (  12 ,  [M ( 

CM(2,1)=CM(I,2» 

C  M  (  3  i  I  )  =  C  M  I  1  ,  3  • 

CMI 3,2>=CMI 2, 3» 

DO  30  1=1,5 
H  M  (  I  )  =  E  L  (  1  I 
HP (  I  )=EL (  I  ) 
HWt  1  )  =EL (  1  I 
CONTINUE 
GO  TO  70 

DO  65  1=1 ,NN5 

I  X  (  I  1  =  1  X  (  I  ) « IMCL 

DO  HO  1=1 ,NN5 
P ( I i  *     0.0 
DO  7  2  K  =  1  ,  3 
RHO (  I  ,K  )  =  0.0 
SMI  I  ,K  )  =  0.0 
BM1 I ,K )  =  0.0 
J=IX(  I  ) 
XXI  N=X(  J) 
YY  I  I  )=Y  (J  ) 
Zl   I  I  )=Z  (J) 
I  C  1  I  N  N  )  =  I  X  I  I  I 
IC2I NN ) =1 X ( 2 1 
IC3(NN)=IX(3I 
I  C  H  (  N  N  »  =  I  X  I  H  ) 

FORM  SHELL  GLOBAL  STIFFNESS  M A T h  I  X 

CALL  QTSHEL  I  -  1  .  NNS  .  NPF  ,  M  I  D  ,  I  U  I  S  ,  I  HO T  ,  ND  ,  M T F  ) 


SHCL 

HO 

SHEl 

fl  ! 

SHLL 

a? 

SHEL 

83 

SHEL 

OH 

SHEL 

85 

SHEL 

86 

SHEL 

87 

SHEL 

U8 

SHEL 

89 

SHEL 

9  0 

SHEL 

9  1 

SHEL 

92 

SHEL 

93 

SHEL 

9H 

SHEL 

95 

SHEL 

96 

SHEL 

97 

SHEL 

98 

SHEL 

9  9 

SHEL 

100 

SHEL 

101 

SHEL 

102 

SHEL 

103 

SHEL 

10H 

SHEL 

106 

SHEL 

107 

SHEL 

108 

SHEL 

1  15 

SHEL 

1  16 

SHEL 

1  1  7 

SHEL 

1  18 

SHEL 

1  19 

SHEL 

120 

SHEL  121 
SHEL  122 

SHEL  12H 


SHEL  125 


149 


1  08 

C 

1  09 

C 

1  10 

1  1  1 

I<1 

1  1  2 

1  13 

1  1  M 

I  I  5 

1  16 

c 

1  17 

c 

1  IB 

c 

1  IV 

c 

1  20 

121 

c 

122 

c 

123 

c 

124 

125 

c 

1  26 

c 

1  27 

1  28 

129 

1  30 

1  31 

c 

132 

c 

1  3  3 

c 

1  34 

1  35    "i 

1  36 

1  37 

1  38 

1  39 

MO 

1  M  1 

1  M2 

143 

c 

1  MM 

c 

1  15 

c 

1  H6 

117 

1  MS 

1  M9 

150 

151 

152 

c 

153 

I5M 

c 

155 

156 

157 

158 

159 

c 

I6C 

161 

CLEAR  STRESS  CORRECTION  AND  LOAD  VECTOR  MATRICES 

DO  5  20  L  =  1  ,  L  L 

DO  5  I M  I  *  I  , N  5 
5  1  M  S  M  1  , 1  >  =  0.0 

DO  5  16  J" I ,N0 
51/,  RF(J,Ll  *  0.0 
520  CONTINUE 

FORM  ELEMENT  nASS,  S T R E SS /D  I  SPL ACEME N T  aNO  UNIT  NORMAL  PRESSURE 
FORCE  MATRICES 

CALL  STRETR ( NNS  ,RH0M , ARLAP I 

FORM  LOAD  VECTORS  AND  STRESS  CORRECTION  MATRICES 

DO  550  IL» 1  ,LL 

CHECK  FOR  NO  ELEMENT  LOADINGS 

D  U  M  =  0.0 

DO  522  K=  I  ,5 

522  DUM  *     DUM  ♦  AB5( TLO(K  ,  !L  )  ) 
IF (DUM.LT.  1  .OE-8  )  GO  TO  550 

GENERATE  ELEMENT  LOADS  (MECHANICAL) 

DO  52M  I  ■ 1  ,NNS 

K  »  6»  I  I  -  1  ) 

DO  523  J=  I  ,3 

K  =  K+  1 

RFIK.IL)  =  XM(K>»  TL0(J*2,1L)  ♦  PF  I K   )  •  TLO(l,IL)»  EL(2) 

523  CONTINUE 

Till       =  TLO<  2  ,  ID  •  EL  (  3  ) 
DT  (  I  )      =-TLO<  2  ,  IL  I  •  ELI  M  ) 
52M  CONTINUE 

GENERATE  ELEMENT  LOADS  (THERMAL) 

DUM  *  ABS ( T (  1  I  I  ♦  ABS ( DT (  1  )  I 
IF  I DUM.LT  .  1  .OL-8  )  GO  TO  550 
DO  525  I  =  1  ,NNS 
DO  525  K*  1  ,3 
SM I  1  ,K  I  *  0.0 

525  BM  (  I  ,K  )  =»  0-0 

CALL  QTSHEL  (  1  .  NNS  ,  NPF  ,  M I D  ,  I  0  I S  ,  I  ROT  ,  ND  ,  NTF  ) 

DO  526  1=1 , ND 

526  RF (  I  ,  IL )  =  RF (  I  ,  IL  )  +  R(  1  ) 
DO  527  J=l ,30 

527  R ( J  I  =  0.0 

ELEMENT  STRESS  CORRECTION  MATRICES 
DO  528  1  =  1,  NNS 
DT (  I  I  =  -DT (  I  ) 


SHEL  15V 


150 


162 
163 
I6M 
165 
166 
167 
166 
169 
I  70 
171 
172 
173 
I  74 
175 
176 
I  7  7 
178 
179 
180 
181 
i  82 
183 
IBM 
165 
186 
187 
188 
1  8V 
190 
191 
1  92 
193 
1  91 
195 
196 
197 
1  98 
I  99 
200 
201 
202 
203 
20H 
205 
206 
207 
208 
209 
210 
21  I 
212 
213 
2M 
215 
216 


DO  528  K« 1 , 3 
5M ( I iK I  =  0.0 
528  BM (  I  ,K  )  =  0.0 


BM (  I  ,K  )  =  0.0 
CALL  QTSHEL  1 2 » NNS , NPF , H 1 D i I D I S , I  ROT , ND i NTF 1 
AVERAGE  NODAL  STRESSES  AT  THE  ELEMENT  CENTROIO 
DO  530  I = 1 t NNS 


DO     530     I  =  1  ,NN5 


DO    530    K.  =  I  ,  3 

SF(K        ,IL)     =    SMK        i  I D     +     S  M  I  I  ,  K  ) 
530     SFIK  +  3.IL)     =     S'r(K*3.1L>     ♦     BMU.K) 
DUM     =     1.0/     FLOAT(NNS) 
DO     532     K»l  ,6 
532     SFIK.ILI     *     5F(K,1L)»     DUM 
C 

l.  5  0    CONTINUE 

AREAT=AREAT  +  ArEAP»EL (  I  ) 

WRITE  (6,200<4)  NN  ,  <  I  X <  I  )  ,  I  *  1  ,  HI  ,   EL(1),EL(2) 
C 

C   ••*  FORM  L  M  ARRAY  AND  COMPUTE  BANDWIDTH 
C 

L  *  MI  NO (NNS,  4  I 
00  M  10  1  =  !  ,L 
J*NPF*1-NPF 
N  =  I  X  (  I  > 

DO  H 10  K=l ,NPF 
M|0  LMiJ+Kl  =  6  ♦  N  ♦  K  -  6 
C 

DO  222  1= 1 ,ND 

DO  222  J=l ,ND 

ASA(  I  , J)  *  SI  1  i J) 

22^  ASA (J,  I)  x  SI1.J) 


ASA (J,  I)  x  SI1.J) 

CALL  CALBAN  ( MB  AND , NO  1 F , LM , XM  ,  AS  A , RF , ND , NDM     I 

WRITE!  I0»ND,N5» (LMI 1  I  , 1  =  1  ,ND1  , I  ISA!  I  , Jl , 1=1 tNSl  »J«1  ,N0)  , 
1    ((SF<1,JI,I=1,NSI,J*1,'U.EL<1) 
GO  TO  500 
WRITE  (6,2005)  Mm 


IST0P=1 

500  IF  (NN.LT.MM)  GO  TO  110 
IF  (NN.EQ.NUMEL  )  RETURN 
IF  (  ISTOP.EG).  |  »  STOP 
GO  TO  100 


SHEL  151 
SHEL  152 
SHEL  153 


SHEL  155 
SHEL  156 
SHEL  157 


SHEL  169 


SHEL  170 

SHEL  171 

SHEL  172 

SHEL  173 

SHEL  174 

SHEL  175 

SHEL  176 

SHEL  177 


SHEL  206 
SHEL  207 


151 


i 
? 

3 
4 
5 
6 
7 
8 
9 
10 
1  1 
12 
I  3 
1  4 
15 
16 
17 
18 
I? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
37. 
33 
34 
35 
36 
37 
38 
39 
10 
H  1 
H2 
4  3 
44 
45 
46 
4  7 
H8 
49 
50 
51 
52 
53 


subroutine;  qishel  ( kkk  ,nns  ,npe ,mi d  .  id i s  ,  i rot ,nef ,ntf > 

THIS  SUBROUTINE  CAN  EVALUATE 

...  ELEMfNT  STIFFNESS  MATRIX        .,. 

...  CONSISTENT  NODAL  FORCE  VECTOR   ... 

...   INTERNAL  STRESSES  AND  MOMENTS  ... 
OF  A  SHALLOW  gUADRILAT ERAL  SHELL  ELEMENT  ASSEMHLLD  WITH 
TRIANGLES,  OR  OF  A  SINGLE  TRIANGULAR  SHELL  ELEMENT. 


H  FLAT 


I  NPUTS 
KKK 


NNS 


NPF 


MID 


IOIS 


I  ROT 


CALLING  AKGUMLNTS 


integer  flag  specifying  operation  to  be  performed 

if  kkk  =-lf  form  stiffness  matrix  only, 

jf  kkk  =  0,  form  stiffness  matrix  and  load  vector. 

if  kkk  =  i,  form  load  vector  only, 

if  kkk  =  2,  evaluate  stresses  and  moments. 

number  of  supplied  nodal  points 

if  nns  =  5,  (jtshel  forms  a  <ju  adr  1  l  a  t  e  r  al  i  and  the 

properties  at  the  internal  node  5  must  be  input, 

if  nns  =  4,  qtshel  forms  a  qu a dr i l a t e r al  i  and  the 

properties  at  the  internal  node  5  are  set  by  qtshe 
to  be  their  corner  average. 


IF  NNS 


3,  QDSTIF  FORMS  A  SINGLE  TRIANGLE. 


NUMBER  OF  GLOBAL  DEGREES  OF  FREEDOM  AT  EACH 

EXTERNAL  NODE  (3,  5  OR  61 
]F  NPF  =  6,  THE  3  DISPLACEMENTS  U,  V  AND  W  AND  THE 
3  ROTATIONS  RX,  RY  AND  RZ  ARE  INCLUDED  AS  D.O.F. 
IF  NPF  =  5,  THE  ROTATION  RZ  IS  IGNORED. 
]F  NPF  =  3,  ONLY  U,  V  AND  W  ARE  CONSIDERED  AND 
THE  BENDING  STIFTNESS  IS  NOT  INCLUDED  (MEMBRANE 
SHELL  ELEMENT) 

NUMBER  OF  INTERNAL  MIDPOINTS  IN  QUADRILATERAL  (0  OR 
|F  MID  =  0,  THE  MEMBRANE  ELEMENTS  ARE     CSl 

AND  THE  BENDING   ELEMENTS  ARE     LCCT-9 
IF  MID  =  4,  THE  MEMBRANE  ELEMENTS  ARE     LST-10 
AND  THE  LENDING   ELEMENTS  ARE     LCcT-11 
IF  NNS  *  3  (SINGLE  TRIANGLE)  MID  IS  ASSUMED  TO  BE  0 

INTEGER  FLAG  FOR  THE  NODAL  DISPLACEMENTS  U,v,W 

IF  IDIS  *     0,  U,V,w  ARE  SPECIFIED  IN  THE  GLOBAL  SYS 

IF  |DIS  *  1,  U,V,W  ARE  SPECIFIED  IN  THE  NODAL  0  I SP 

SYSTEMS  DEFINED  BY  THE  DIRECTION  COSINE  ARRAY  TUIS 

INTEGER  FLAG  FOR  THE  NODAL  ROTATIONS  R  X  ,  R  Y  ,  P  Z  . 
|F  [ROT  =  0,  RX.RY.RZ  ARE  SPECIFIED  IN  GLOBAL  SYST 
|F   (ROT  =  1,  RX.RY.RZ  ARE  SPECIFIED  IN  THE  NODAL  R 
SYSTEMS  DEFINED  BY  THE  DIRECTION  COSINE  ARRAY  TROT 


SHt.L 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
•  SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
L  SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
4)SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
TEMSHEL 
L  SHEL 
SHEL 
SHEL 
SHEL 
EH  SHEL 
OT  SHEL 
.    SHEL 


4  7  4 
4  75 
'17  6 
H  77 
478 
479 
MOO 
4  8  1 
482 
48  J 
484 

4  8b 
406 

48  7 
408 
489 
490 

49  1 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 

5  10 
51  1 
512 
513 
514 
515 
51  6 
5  1  7 

51  8 
519 
520 

52  I 
522 
523 
524 
525 
526 


152 


5H 

55 
56 
57 
58 
5? 
60 
61 
62 
63 

64 
65 
66 
67 
68 
69 
70 
7  I 
72 
73 
7H 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8H 
65 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


OUTPUTS 
NEF 

NTF 


NUMBER  OF  EXTERNAL  DEGREES  OF  FREEDOM  (NEF  =  NPF*NEN, 
WHERE  NEN  =  4  FOR  QUADRILATERAL,  =3  FOR  SINGLE  TRIANGLE 

TOTAL  NUMBER  OF  DEGREES  OF  FREEDOM  < E X T E RN AL ♦  I  N T ERN A L 


C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


X(  1 1 , r 1 1 )  iZi  i ) 

CM(  I  ,  J ) 

ALFA  I  I  ) 

H  M  (  i  ) 

HP(  I  ) 

RHO ( I , J • 

HW  (  1  ) 

PI  I  ) 

T(  I  ) 

DT(  1  ) 

SMI  I  ,  J) 


BM<  I  ,  J) 


TD t 5 (  I  ,  J,K  I 


•  •  arrays  in   common  /qtsarg/   •••••••••• 

i=lt..nns    global  nodal  coordinates 

1=1. ..3,  j  *  1  ...  3   plane  stress  material  matrix 
relating  stresses  to  strains  in  the  local  system 

1  =  1. ..3   dilatation  coefficients  relating  in-plane 
thermal  strains  in  the  local  system  to  temperatures 

1=1. ..nns   thickness  resisting  membrane  stresses 

1=1. ..nn5   thickness  resisting  bending  moments 

i=i...nns,  j  *  i  ...  3  global  components  rhox  (  j  *  i  )  , 
rh0y  (j  =  2»  and  rhoz  ( j ■ 3  )  of  body  forces  per  unit 
of  volume 

1=1.  ..nns   thickness  for  computing  body  forces 
rho»hw  per  unit  of  element  area 

1  =  1. ..nns   lateral  pressure  (normal  to  the  faces  of 
the  component  triangles) 

1=1. ..nns   mean  temperature  variations 

1=1. ..nns   mean  temperature  thickness  gradients 

1=1. ..nns,  j=1...3   array  of  membrane  stress 
components  in  the  local  system  sig-xx  (j=  1  )  ,  sig-yy 
(j"2)  and  sig-xy  (j=3|.  sm  contains 
membrane  stresses  in  the  initial  position  as  input 
when  kkk=0,1,2  (excluding  thermal  actions) 
membrane  stresses  in  the  deformed  position  as  outpu' 
when  kkk=2  (including  thermal  actions) 

1  =  1. ..nns,  j=1...3   array  of  bending  moment 
components  in  the  local  system   mom-xx  (j=l),  mom-yy 
(j  =  2)  and  mom-xy  (  j  =  3  )  •  bm  contains 
bending  moments  in  the  initial  position  as  inputs 
when  kkk=0,i,2  (excluding  thermal  actions) 
bending  moments  in  the  deformed  position  as  output 
when  kkk=2  (including  thermal  action) 

1  =  1. ..3,  j  s 1  ...  3  ,  k  =  i...nen    not  required  if 


SHEL 

527 

SHEL 

528 

SHEL 

529 

SHEL 

530 

ISHEL 

53  1 

SHEL 

532 

ISHEL 

5  33 

SHEL 

S34 

SHEL 

S35 

SHEL 

536 

SHEL 

537 

SHEL 

538 

SHEL 

539 

SHEL 

540 

SHEL 

SH) 

SHEL 

542 

SHEL 

543 

SHEL 

544 

SHEL 

545 

SHEL 

546 

SHEL 

547 

SHEL 

548 

SHEL 

549 

SHEL 

550 

SHEL 

551 

SHEL 

552 

SHEL 

553 

SHEL 

554 

SHEL 

555 

SHEL 

556 

SHEL 

55  7 

SHEL 

558 

SHEL 

559 

SHEL 

560 

SHEL 

561 

SHEL 

562 

SHEL 

563 

SHEL 

564 

SHEL 

565 

SHEL 

566 

SHEL 

567 

SHEL 

568 

SHEL 

569 

SHEL 

570 

SHEL 

571 

SHEL 

572 

SHEL 

573 

SHEL 

574 

SHEL 

575 

SHEL 

576 

SHEL 

577 

SHCL 

578 

SHEL 

579 

SHEL 

580 

153 


ion 
iov 
I  10 
I  1 1 

I  I  2 
I  13 
I  I  4 
!  IS 
I  16 
1  17 
I  IB 
I  IV 
120 
121 
122 
123 
121 
I  25 
126 
127 
I  2B 
I  29 
I  30 
I  31 
I  i2 
I  33 
1  31 
135 
1  36 
I  37 
I  38 
13? 
110 
I  41 
112 
143 
I  MM 
145 
I  46 
I  47 
I  18 
1  49 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 


T  R  0  T  (  1  i  J  t  K  I 


S( I , J| 


5(  I  ,J) 


R  (  1  ) 


R(  I  I 


ARRAYS 


IOlS  =  0.   IF  I  U  I  5=  1  ,   rt)lS(  1  .  .3,  1  .  .3,K  ) 

t|)e  (3,31  direction  cosine  matrix  of 
displacement  system  at  the  k-th  eleme 
respect  to  the  global  system 

1  =  1.  ..3,  j  = 1  ...  3  ,  k  =  1  .  .  .  n  e  n    not  re 

IROT=0.  IF  IR0T=i,  TROT (  I  .  .3  ,  1  .  .  3  ,K  ) 

the  (3,3)  direction  cosine  matrix  of 
Rotation  system  at  the  k-th  element  n 
respect  to  the  global  system 


MUST  CONTAIN 

THE  NODAL 

NT  NODE  WITH 


<i  U  1  R  E  D  IF 

must  contain 
the  nodal 

ODE  WITH 


1*1 . .  .NEF  ,  Je|..  .NEF 
(OUTPUT  If  KKK'-l  ,0) 


EXTERNAL  STIFFNESS  MATRIX 


1  =  1. ..NTF,  J=NEF+  I  .  .  .NTF  REDUCED  IN 

OF  QUADR ILAIERAL  ELEMENT.  OUTPUT  IF  K 
REQUIRED  INPUT  IF  K K K *  I  , 2 .  NOT  USED  F 
TRIANGLE. 

1  =  1.  ..NEF  OUTPUT  EXTERNAL  NODAL  FO 
INPUT  EXTERNAL  NODAL  DISPLACEMENTS  IF 

I =NEF  +  1  •  •  .NTF  REDUCED  INTERNAL  NODA 
OF  (JUADR1LATERAL  ELEMENT.  OUTPUT  IF  K 
REQUIRED  INPUT  IF  KKK  =  2  (RETURNS  INTE 
DISPLACEMENTS).  NOT  USED  FOR  SINGLE  T 


TERNAL  STIFF NE 
KK  =  -  1  ,U. 
OR  SINGLE 


RCES  IF  KKK=0, 
KKK=2. 

L  FORCE  VECTOR 
KK=0,  I . 
RNAL  NODAL 
R I  ANGLE. 


S3 


ROLE  OF  ARRAYS  IN  COMMON  /QTSAPG/ 


OPERATION   KKK  =-1 

Q     T 


,Y,Z,CM,A 

RHO.HW, 

T  ,DT 

5M  ,BM 

TD!5,TR 

(  1  .  .NEF, 1 

1  .  .NTF  ,NE 

R (  I  .  .N 

RINEF  +  I  . 


LFA,HM,HP  (•) 
P 

(  »  I 

(  •  ) 
OT  ( 
.  .NEF 
F+l 
EF) 
.NTF 


♦•  > 

:f  i 

•  NTF  ) 


KKK  »  0 

Q     T 


KKK 
U 


KKK 
Q 


I/O  I/O 
I 


NOTES 


WHERE     Q=gUADRlLATERAL  (NN5*1,5>,  T*5INGLE  TR 
I«INPUT,  0  =  OUTPUT,   I  /0*I NPUT/OUTPUT  ,  - 

(•)    HP»DT  AND  BM  ARE  NOT  USED  IF  NPF«3. 
(•♦)  TD'S  IS  NOT  USED  IF   IDIS=0,  AND  TROT 
IF  1 R  0  T  =  0  . 


LOGICAL  QUAD,  TRIG,  NOMP  ,  NOST,  SIST,  NOLO.  S1LD, 

COMMON  /QTSARg/  X<5)  , Y (5)  ,Z (5)  ,  HM(5»,HP(5I,  CM(3 

1  HW(5l,RH0(5,j),P(b),  T(5),DT(5),  SH I  5  ,  3  )  , B H ( 5 , 3  ) 


1  /O   - 

IANGLE   (NNS=3) 
=NOT  USED. 


IS  NOT  USED 


NOSM  ,  S  I  SM ,  S 
,  3  )  ,  A  L  F  A  <  3  I  , 
,  TDISI 3,3,4  I  , 


SHEL 
S  H  E  L 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 

1.  SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
•  SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 

KMPSHEL 
SHEL 
SHEL 


5H  I 

582 
583 
584 
585 
586 
587 
58  8 
58? 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
61  1 
612 
613 
61  4 
615 
6  I  6 
61  7 
6  1  8 

61  9 
62U 

62  1 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
615 
632 
633 


154 


162 

163 
164 
165 
166 
167 
166 
16? 
170 
171 
172 
1  73 
174 
175 
176 
1  77 
I  /0 
1  79 
180 
181 
182 
183 
1  04 
185 
I  86 
I  87 
188 
1  8V 
1  9C 
191 
192 
193 
l?M 
195 
196 
197 
1  98 
19? 
200 
201 
202 
203 
204 
205 
206 
207 
208 
2C9 
210 

21  1 
212 
213 
21  4 
715 


2  TROT < 3,3 ,4 )  ,$( 30,30 >  ,R(  30) 

COMMON  /TRIAR&/  A(3),U(3),  HM T  ( 3 )  , HP T  ( 3  I  ,  C(3,3),  S MT ( 3  ,  3  )  , 
1  t»MT<3,3),  FT(12),      PI  ( 3)  ,P2( 3)  ,P3( 3)  ,RMl 3)  ,  Sfll2,12) 

COMMON  /TRANSr'   T 1  (  3 )  ,  T 2 ( 3  )  ,  T 3  I  3  )  i  T0(3,3) 

DIMENSION  Fll),   IPERMU(4I,  MFUIS),  L0C<5),  Nc<3),  CA(3),  WGT13), 

1  TI)1(13),T02(|3),TDJI9),  TR1(9),TR2(9),TR3(?),  U(  1  I  ,V(  I  I  ,WI  I  )  t 

2  RX  <  I  )  ,RV  <  1  ) 

DIMENSION  TTRoT ( 36 )  .TT01  5 ( 36  I 

EQUIVALENCE  <TROT<l,l.l).TlKOTll>)t(TDIS(l.l,l),TTDIS<l)) 


!t  211 


SI5T  =  KKK.LE.O 

NOST  *  .NoT.SlST 

SILD  =  KKK.EU.O.OR.KKK  .EfJ.  1 

NOLO  =  .NOT.SlLD 

SISM  x  KKK.GE.2 

NOSM  =  .NOT.SISM 

IK  1  INNS. NE. 3). AND.  INNS. NE. 51  I 

IF   II NPF . NE.3  )  .AND.  ( NPF.NE.6  )  ) 

NEN  *  M1N0  (NN5,4) 

(JUAO  =  NEN.EU.M 


NN5 
NPF 


NE 

UUAD 

TRIG 

wr, 
N3 
M  T  R  I 


=  NEN.Ew.4 
=  NEN.ECj  .  3 
1  • 

2»NEN  -  3 
3»NEN 


N  E  F  '     N  E  N  •  N  P  F 

N5F  «  NEF  +  (NEN-3)«NPF 

IF  (MID.NE.4)    M10  =  0 

M1DP  =  MID 

IF  (TRIG)   MIpP  =  0 

NFM  -  3 

IF  (NPF.EQ.3)   NFM  =■  2 

NTF  *  NSF  +  NFM»MIDP 

NOMP  »  MlDP .LE .0 

5KMP  =  NOMP.OR.NOST 

IF   INNS. NE. Ml    GO  TO  130 

X(51  =  0«25« I  X <  1  ) +  X ( 2 ) +  X I  3 ) *X I M )  ) 


SHEL 

6  3  5 

SHEL 

636 

SHEL 

637 

SHEL 

6  30 

SHEL 

639 

5HEL 

640 

.SHEL 

64  I 

SHEL 

642 

SHEL 

643 

SHEL 

644 

SHEL 

646 

SHEL 

647 

SHEL 

6M8 

SHEL 

649 

SHEL 

650 

SHEL 

651 

SHEL 

652 

SHEL 

653 

SHEL 

654 

SHEL 

655 

SHEL 

656 

SHEL 

657 

SHEL 

658 

SHEL 

65  9 

SHEL 

660 

SHEL 

661 

SHEL 

662 

5HEL 

663 

SHEL 

66M 

SHEL 

665 

SHEL 

666 

SHEL 

667 

SHEL 

668 

SHEL 

669 

SHEL 

670 

SHEL 

671 

SHEL 

672 

SHEL 

673 

SHEL 

67M 

SHEL 

675 

SHEL 

676 

SHEL 

677 

SHEL 

678 

SHEL 

679 

SHEL 

680 

SHEL 

68  1 

SHEL 

682 

SHEL 

683 

SHEL 

684 

SHEL 

685 

SHEL 

686 

155 


216 

21  7 

210 

21  9 

220 

221 

222 

223 

224 

225 

226 

227 

22e 

229 

230 

231 

232 

233 

23H 

235 

236 

237 

236 

239 

240 

2M  t 

242 

243 

244 

245 

246 

247 

249 

2H9 

250 

251 

252 

253 

25H 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

26B 

269 


HW(5)   =  0.25»  ( HW (  1  )  *HWI  2  I »HWI  3 ) +HW  I  H   )  I 

DO   1  20    J  =   I  ,3 
120  RH0(5,J)  »  0. 25» ( RH01  1  , J ) +HMO ( 2 , J ) +RHOI 3  i  J  I  *RHO( M  ,  J  I) 
13D  IT  (NOST)    GO  TO  150 

DO  1  HO    I  =  !  ,NTF 

DO  1  MO   J  *  1  ,N  TF 
140  5(1, J)   =    0. 
150  IF  ( S I SH  )    GO  TO  170 

DO  1 60    1  =  1  ,NTF 
160  Fill  =  0. 
170  IF  ( NOSM. OR. TR IG  )    GO  TO  2C0 

NEF1  =  NFF  ♦  ! 

DO  180   L  =  N E  F 1  ,  N  T  F 

M  =  L  -   I 

DO  I  80    I  =  I  ,M 
180  R (L )  =  R (L I  -  S(  I  ,L  I  »R (  1  I 
200  DO  2 10   I  =  1,63 
2  10  All)  =t  0. 

DO  220    I  *  1  ,  3 

CA(I)  =  CM(  1  ,  I  1»ALFA(  1  l+CMI  2,  I  )  «ALFA( 2  I +CM(  3,  I  I  »ALFA ( 3  ) 

DO  220   J  «  1,3 
2  20     C  i   I  i  J  1  *  CMII.J) 

COMPUTE  DIRECTION  COSINE  MATRIX  TO  OF  LOCAL  ELEMENT  SYSTEM 

CALL  UDCOS  I NTR I  ,  X  ,  Y  ,  Z  ,  TO  1 

LOOP  OVER  THE  NTRI  TRIANGLE  COMPONENTS 

DO  700   NT  *  1  .NTR  1 

N  1  =  NT 

N2  *  IPERMQIN1  I 

NC  f  1  I  =  N 1 

NC(2)  *  N2 

N  C  (  3  )  =  N  3 

MT  =  MloP/2 

NOD  =  3  ♦  MT 

COMPUTE  DIRECTION  COSINES  OF  LOCAL  TRIANGLE  SYSTEM 
AND  THE  TRIANGLE  PROJECTIONS  A,B  ONTO  IT 

CALL  TDcOS  < N  1  ,N2  ,N3  ,X  ,  Y  ,Z  ,  A  ,0  ) 

SET  UP     INPUTS  FOR  TRIANGLE  SUBROUTINES 

DO  240    1=1,3 

L  =  NC<  I  ) 

LOCI  I  )  =  NPF» (L-l  ) 

HMT  t  I  )  =  HM ( L  ) 

HPT  I  I  )  =  HP1L  ) 

IF  (NOLO)    GO  TO  24G 

ROX  *     RHO  I  L  ,  1  ) 

ROY  *  RHO ( L , 2 ) 

R07  =  RHOIL  .3  ) 


SHEL 

687 

SHEL 

688 

SHEL 

689 

SHEL 

690 

SHEL 

691 

SHEL 

692 

SHEL 

693 

SHEL 

694 

SHEL 

695 

SHEL 

69ft 

SHEL 

697 

SHEL 

698 

SHEL 

699 

SHEL 

700 

SHEL 

701 

SHEL 

702 

SHEL 

703 

SHEL 

70  4 

SHEL 

705 

SHEL 

706 

SHEL 

707 

SHEL 

708 

SHEL 

7  09 

SHEL 

7  10 

SHEL 

7  1  1 

SHEL 

7  1  2 

SHEL 

7  1  3 

SHEL 

714 

SHEL 

7  15 

SHEL 

71  6 

SHEL 

7  t  7 

SHEL 

7  1  a 

SHEL 

719 

SHEL 

720 

SHEL 

721 

SHEL 

722 

SHEL 

723 

SHEL 

7  24 

SHEL 

725 

SHEL 

726 

SHEL 

727 

SHEL 

728 

S.HEL 

729 

SHEL 

730 

SHEL 

731 

SHEL 

732 

SHEL 

733 

SHEL 

734 

SHEL 

735 

SHEL 

736 

SHEL 

737 

SHEL 

/3S 

SHEL 

/39 

SHEL 

/HO 

156 


270 

271 

772 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

?83 

284 

285 

286 

287 

288 

20? 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

31  1 

312 

313 

314 

315 

316 

31  7 

318 

319 

320 

321 

322 

323 


ROl  "  T  1  1  «ROX  +  T 1 2»R0Y  +  T 1 3»H0Z 

R02  *  T21»R0X+T22»R0Y+123*K0Z 

R03  =  T3l»ROX+T32»ROY+T33«KOZ 

HI  =  HW(L) 

P 1  (  I  1  =  RO 1 »H 1 

P2  (  I  I  =   '02»Hl 

P3 (  I  )  ■  R03»H  1  +  P ( L  ) 


P2  (  I  I  =   '02»Hl 
P3 (  I  )  ■  R03»H  | 
TEMP  =  T ( L  ) 
T  M  0  M 


230 
240 


TEMP  =  TIL) 

TMOM  =  0T(L)»nPtL)«»3/17. 

DO  230   J  =  1  ,  3 

S  M  T  (  I  ,  J  >  =  SM(L,J)  -  CA(J 


BMT (  1  , J )  =  BM (L , J  1 

CONT  IfJUE 


CA ( J  )  »TEMP 
CA ( J  )  »TMOM 


250 


FORM  TRANSFORMATIONS  BETWEEN  ELEMENT  AND  NODAL  SYSTEMS 

LI  =  9»N I  -  8 
L2,=  ?»N2  -  8 

CALL  TRFPRDI  IdIS.NEN.TTOISILI  )  |TTD15(L2)  ,TTDIS(  19)  ,TDl  .  TD2.TD3 ) 
IF  (NPF.NE.3) 
1CALL  TRFPRDt  IR0T,NEN,TTR0T(L1  )  ,TTR0T(L2)  ,TTROT(  19)  ,TRI  ,TR2,TR3) 
DO  250    I  =  7,8 
TD1  (  I +  3 )  =  TD  1  I  1  ) 
*  TD1  <  I  I 
=  TD2<  i  ) 
=  TD2<  I  ) 

NSF  +  NFM» (N2-  1  ) 
NSF  +  N  F  M  •  (  N  I  -  I  ) 
3 
3 


TD1 t 1*5) 
TD2( 1+3) 
TD2I 1+5) 
LOC ( H  )  = 
LOC  15)  = 
N4  -  LOC ( 4 ) 
N5  *  L0CI5) 


260 


MEMBRANE  CONTRIBUTION 

IF  (S1SM)   GO  TO  320 

MEMBRANE  STIFFNESS  AND/OR  LOAD  VECTOR 

CALL  SLST  (MT.KKK) 

LT  =  0 

DO  300   JJ  =  1  .NOD 

J  *  JJ  ♦  JJ 

M  =  LOC ( JJ) 

LL  =  MFR ( JJ  ) 

DO  300   L  =  1  ,LL 

M  »  M  ♦  1 

LT  =  LT  *  I 

CI  =  TD1 (LT ) 

C2  =  TD2 (Li ) 

IF  (SILD)   Fill)  =  F(MI 

IF  (NOST)    GO  TO  300 

K  T  =  0 

DO  290    II  *  I iJJ 

I  »  I  I  ♦  I  I 

KK  =  M F  R (  I  I  ) 

IF   (  I  I  »EU  .  JJ  )    *K  =>  L 

HI  =  ST  (  1-1  , J-l  I  «CI 


♦  FT ( J-l  ) »C I  +  FT ( J)  «C2 


♦  ST  (  1-1  ,  J  )  »C2 


SHEL 

74  1 

SHEL 

742 

SHEL 

743 

SHEL 

744 

SHEL 

7  45 

SHEL 

746 

SHEL 

74  7 

SHEL 

74  8 

SHEL 

749 

SHEL 

750 

SHEL 

751 

SHEL 

752 

SHEL 

753 

SHEL 

754 

SHEL 

755 

SHEL 

756 

SHEL 

757 

SHEL 

758 

SHEL 

7  60 

SHEL 

762 

SHEL 

763 

SHEL 

764 

SHEL 

765 

SHEL 

766 

SHEL 

767 

SHEL 

768 

SHEL 

769 

SHEL 

770 

SHEL 

771 

SHEL 

772 

SHEL 

773 

SHEL 

774 

SHEL 

775 

SHEL 

776 

SHEL 

777 

SHEL 

778 

SHEL 

779 

SHEL 

760 

SHEL 

781 

SHEL 

782 

SHEL 

783 

SHEL 

784 

SHEL 

785 

SHEL 

786 

SHEL 

787 

SHEL 

788 

SHEL 

70? 

SHEL 

790 

SHEL 

791 

SHEL 

792 

SHEL 

793 

SHEL 

794 

157 


324 

325 

326 

327 

328 

32? 

330 

331 

332 

333 

334 

335 

3  36 

337 

338 

339 

340 

34  I 

342 

343 

34  4 

345 

346 

347 

3H8 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

3  63 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 


290 
300 


320 


330 


350 


380 
400 


H2 

*  ST(  1 

N  o 

LOC  III) 

DO 

290   K  = 

N  »• 

N  ♦  1 

J-l ) »C1  +  ST  I  I    ,  J)  »C2 


I  ,K.K 


KT  =  KT  ♦   I 

5  (J  =  SIN,  Ml  ♦  T  D  I  t  K  T  )  ♦  H  1  ♦  TD2lKT)»H2 

S  I  N  ,  M  )  =  5  Q 

S (M  ,N  I  =  5Q 

C  0  N  T  |  N  U  E 

GO  TO  4  00 

MEMBRANE  STRESSES 

DO  350  N= I  ,NOD 

L  =  LOC ( N  ) 

UE  = 

VE  = 

IF  (N. 

WE  = 
M3  = 
M2  = 
Ml  = 
Ul  N  ) 
VINI 
WIN) 
GO  TO 
U(  N  ) 


R(L+I  ) 
R  (L  +  2  ) 
GT.3)  GO  TO  330 

RIL  +  3  > 

3*N 

M3-I 

M2-  I 

=  T  D  1  (  M  1  )  •  U  E  ♦ 

=  T  D  2  (  M  I  )  •  U  E  + 

=  TD3( Ml ) «UE  + 

350 
=  TD I  I  7 ) »UE 


TD  1  (M2  I  »VE 
TD2 ( M2  )  • VE 
T  D  3  (  M  2  )  •  V  E 


TDl  (M3 )»WE 
TD21M3 I »WE 
TD3 ( M3 ) »WE 


.OE 


TDl  ( 8  I  *  V  E 
TD2 I  8  I  »VE 


VI  N  )  =  T  D  2  (  7  I 

CONTINUE 

CALL  L5TS7R  (mT| 

DO  3U0  1=1,3 

L  -  NC  (  I  I 

IF ( QUAD  )  WG  =  WGT (  I  I 

TEMP  =  T(LI 

DO  380  J=  I  ,  3 

SMIL, J)     =     SMIl.JI     ♦     WGMSMTII.J) 

IF      (NPF.EQ.3I        GO     TO     560 

PLATE  BENDING  CONTRIBUTION 


C*  (  J  I  »TEMP  I 


IF  (  S  I  SM )    GO  TO  600 

BENDING  STIFFNESS  AND/OR 

CALL  SLCCT  IMTiKKKI 

DO  500   JJ  =  1,3 

JT  =  3»JJ-3 

J  =  JT  ♦  I 

DO  4  50   L  * 

M  =  LOC ( JJ) 

L3 

IF 

C3 

IF 


LOAD  VECTOR 


IF 
S4 
55 
GO 


I  ,NPF 

+  L 
s  l  -  3 

(L3.GT.0)    GO  TO  420 
=  T03UT  +  L  I 

(SILDI   FImI  =  FIM)  ♦  F  T  I  J  )  •  C  3 
ISKMP)   GO  TO  450 
=  S<M,N4)  ♦  STU,1C)*C3 
=  S  (  M  ,  N  5  I  -  5  T (J  i  I  1  I • C  3 
TO  430 


SKLL 

795 

SIIEL 

7  96 

SHEL 

797 

SMEL 

7  98 

SHEL 

7  99 

SHEL 

OUO 

SHEL 

80  1 

SHEL 

802 

SHEL 

803 

SHEL 

805 

SHEL 

806 

SHEL 

807 

SHEL 

BOB 

SHEL 

009 

SHEL 

a  i  o 

SHEL 

Bl  1 

SHEL 

8  1  2 

SHEL 

U  1  3 

SHEL 

8  1  4 

SHEL 

815 

SHEL 

8  1  6 

SHEL 

81  7 

SHEL 

8  i  a 

SHEL 

0  1  9 

SHEL 

820 

SHEL 

82  1 

SHEL 

B22 

SHEL 

H?3 

SHEL 

B2  4 

158 


376 
3  79 
380 
381 
382 
383 
38H 
385 
386 
387 
388 
38? 
390 
39  1 
392 
373 
3?4 
395 
396 
397 
398 

3  9? 
'100 
'10  1 
102 
403 
404 
105 
406 
407 
H08 
H09 
«*  1  0 
1  I  1 
1  12 

4  1  3 
1  I  1 
415 
1  16 
117 
1  18 
Ml? 
120 
421 
M22 
123 
121 
125 
126 
127 
128 
129 
130 
131 


4  20 


130 


15U 


4  60 


170 


180 
500 


510 


56U 


CI 
C2 
IF 
IF 
SI 
55 


=  TR I ( JT  +  L3 I 
=  T  K  2  (  J  T  ♦  L  3  I 
<S1LD>   F(!1»  ' 
(SKMP)    GO  10 


F  IH  ) 
150 


♦  FTIJ+i  )«Cl  ♦  FT  <  J*2  )  »C2 


*  S ( M  ,Nl  I 
=  S(M,N5> 


ST( J*l 
ST(  JM 


10  )  »C  1 
I  1  ) «C  1 


5T< J*2. 
ST 1J*2: 


101  »C2 
I  1  )*C2 


TO  500 
I  »  JJ 


S  (  H  .  N 1  »  =■  5  4 

S(N4,M)  =■  S4 

SIM.N5)  »  S5 

S(N5,M)  •=  55 

CONT I NUE 

I  F  ( NOST  )    GO 

DO  480    1  I  = 

IT  «  J • I  i -  3 

I  =  I  T  ♦  I 

KK  =  NPF 

00  480   L  =  1 ,NPF 

If  I  I  I  *EQt JJI   KK  -  L 

M  »  LOC ( JJ)  +  L 

L3  =  L  -  3 

IF  (L3.GT.0)   GO  TO  460 

C3  ■=  TD3IJT+L) 

H 1  =  ST (  I    ,  J  )  »C3 

H2  =  ST  <  1*1  ,  J)*C3 

H3  =  ST  I  I +2,  J)  »C3 

GO  TO  470 

CI  -  TH1 I JT+L3) 

C2  =  TR2UT  +  L3' 

HI  =  ST(I    ,  J  ♦  I  1  •  C  1 

H2  =  ST ( 1  +  1  , J+ I  I *CI 

H3  =  ST(I+2,J+1|»CI 

N  «  LOC (III 


ST (  I  ,  J*2  I  »C2 
ST  1  I ♦ 1  ,  J*2  I  «C2 
ST  !  I  *2,  J*2 ) «C2 


DO 
N  » 
K  3 
Kl 
K2 
IF 
IF 
S(  N 


•ISO   K  * 

N  ♦  1 

■  K  -  3 

■  I  T  ♦  K 

*  1  T  ♦  K3 
(K3.LE.0) 
IK3.GT.CH 
.Ml  =  SQ 
3d 


I  ,KK 


so 

SQ 


SI  N 
S  I  N 


iH) 
,  H  I 


T  D  ;<  (  <  I  »  •  H  I 

TR1IK2I »H2 


♦  TR2IK2) .H3 


SIM.NI  = 
COMT I NUE 
IF  (NOMP)    GO 
IF  (NOLDI    GO 
F I N4 )  "     F ( N4 ) 
F  I  N5  I  *  F ( N5 I 


TO 
TO 


IF  (NOST I 
S  (  N 1  ,  N  1  )  * 
S(NS,N5)  = 
S1H1.N5)  * 
SIN5.N1)  = 
GO  TO  700 
IF  (NOLO) 


GO 


700 
510 
♦  FT  I  10 ) 
-  FT  I  I  1  ) 
TO  700 
S  (  N  **  »  N 1  )  ♦ 
SIn5|M5)  ♦ 
SlrjH.NS)  - 
S(N"<  |N5) 

GO  TO  7  00 


ST (  10,  10  I 
ST  I  I  1  ,  1  1  I 
ST  (  10,  1  I  ) 


FL 


«P31  1  I*P3I2|*P3I3»  )«(AI3)*B(2I-AI2)*CI  (3)1/12, 


SHEL 

825 

SHEL 

826 

SHEL 

827 

SHEL 

828 

SHEL 

029 

SHEL 

830 

SHEL 

83  1 

SHEL 

832 

SHEL 

833 

SHEL 

834 

SHEL 

835 

SHEL 

836 

SHEL 

837 

SHEL 

838 

SHEL 

839 

SHEL 

840 

SHEL 

84  1 

SHEL 

812 

SHEL 

813 

SHEL 

841 

SHEL 

815 

SHEL 

816 

SHEL 

817 

SHEL 

818 

SHEL 

84? 

SHEL 

850 

SHEL 

851 

SHEL 

852 

SHEL 

85  3 

SHEL 

854 

SHEL 

855 

SHEL 

856 

SHEL 

857 

SHEL 

058 

SHEL 

659 

SHEL 

860 

SHtL 

861 

SHEL 

862 

SHEL 

863 

SHEL 

864 

SHEL 

865 

SHEL 

666 

SHEL 

667 

SHEL 

860 

SHEL 

86? 

SHEL 

870 

SHEL 

87  1 

SHEL 

872 

SHEL 

873 

SHEL 

674 

SHEL 

875 

SHEL 

876 

SHEL 

677 

SHEL 

6/8 

159 


H32 
M  3  i 
M3H 
M35 
436 
H37 
M38 
13? 
HMO 
MM  I 
H'I2 
HH3 
MMM 
MM5 
MM6 
MM  7 
MM8 
MM9 

M50 
M51 
H52 
MS3 
M5M 
M55 
H56 
MS7 
M58 
M59 
M60 
M6i 
H62 
H63 
M6M 
165 
M66 
H67 
H68 
M69 
M70 
H71 
M72 
M73 
M7M 
M75 
M76 
177 
M78 
M79 
M80 
H81 
'(8  2 
H83 
M8H 
M85 


JT 
DO 
DO 


=  0 
S80 
5  80 


L=l  ,3 


I  .2 


JT-JT+ I 

M  «  LOC ( JJ  I  +  L 
5  8  D  F  (  M  )  *  MM)  ♦  FL.TD3IJT) 

GO  TO  700 

BENDING  MOMENTS 
600  DO  650  N= 1 ,3 

L  *  LOC(N) 

M3  »  3«N 

M2  ■  M3-I 

Ml   »  M2-I 

XE  =  R  <  L*H  > 

YE  ■  R(L*5  I 

ZE  ■  0.0 

IF (NPF'EQ.6  I  ZE  =  R (L  +  6  ) 

RX(N)     =     TRHM1>»XE     ♦     TR1(M2)»YE 
650     RYtNl     =     T  R  2  (  M  1  >  •  X  E     ♦     TK2IM2)«YE 

R  M  (  I  )     *     R  (  N  M  I 

RM(2I     >-R(N5l 

CALL  LCTMOM  1 MT ) 

DO  680  1=1,3 

L  -  NC (  I  ) 

IF ( UUAD  )  WG  =  WGT  I  1  I 

TMOM  =  DT IL  I  •Hf(L  I  ••3/12.0 

DO  680  J=l  ,3 
68  0  BM(L.J)  =  HM(L.J) 
700  CONTINUE 

IF   ( 5ISM.QR.TRlG) 


T  R  1  (  M  3  )  •  Z  E 
TR2IM3) »ZE 


W  Ci  •  I  B  M  T  I  I  ,J)-CA(J)»TMOM) 
GO  TO  900 


710 
720 


730 


CHECK  FOR  POSSIBLE  INTERNAL  STIFFNESS  SINGULARITY 
OR  NEARLY  FLAT  QUADRILATERAL  WHEN  NPF  ■  3  OR  61 


IF  (  ( NPF  .EQ«5  )  .OR .NUST  )    GO  TO  730 

DO  720   N  *  3,6,3 

IF  (NPF.Nt.N)    GO  TO  720 

M  =  5«N 

Ml  =  M  -  I 

M2  *=  M  -  2 

IF  (S(M,M).GT.(S(MI,Ml)+5(M2,M2)l»l 

DO  710    I  -  l.NTF 

S(  I  ,M )  =  0. 

5 (M, I )  =  0. 
CONTINUE 


(FLAT 


OE-08)   GO  To  720 


CONDENSATION  oF  INTERNAL  DEGREES  OF  FREEDOM 

NIF  "     NTF  -  N E  F 

DO  800   N  =  |,N|F 

K  =  NTF  -  N 

L  =  K  +  1 

PI  VOT  =  S(L  ,L  ) 

FL  "  ML  I 


SIIEl.  87? 

SHEL  080 

SHEL  881 

SHEL  an/ 

SHEL  883 

SHEL  8  8  H 


SHEL 

886 

SHEL 

887 

SHEL 

888 

SHEL 

090 

SHEL 

89  1 

SHEL 

892 

SHEL 

893 

SHEL 

89M 

SHEL 

895 

SHEL 

896 

SHEL 

897 

SHEL 

898 

SHEL 

899 

SHEL 

900 

SHEL 

901 

SHEL 

902 

SIIEL 

903 

SHEL 

?0M 

SHEL 

90b 

SHEL 

906 

SHEL 

907 

SHEL 

908 

SHEL 

909 

SHEL 

910 

160 


486 

IF   (PIVOT.LE.O-)    GO 

487 

r  1  L  !  =  FIL1/PIV0T 

•488 

00  780   I  =  1  ,K 

M89 

G  =  S(  I  ,L) 

'190 

IF  (G)   7 4 0,7.;  0,710 

491 

740 

IF  (N05T)    GO  10  770 

'19  2 

G  »  G/PIVOT 

49  3 

51  I  ,L )     =  G 

494 

DO  760   J  *  I  ,K 

495 

5«  =   S (  I  , J  I  -  G  •  5  (  L 

496 

S(  1  ,  J  )  =  so. 

497 

760 

5 ( J , I )  =  SQ 

498 

770 

F ( I )  =  F ( I )  -  G»FL 

4  99 

780 

CONT I NUE 

500 

800 

CONT I NUE 

5U1 

VOO 

RETURN 

502 

END 

TO    800 


SHEL 

91  1 

SHEL 

9  1  I 

SHEL 

91  3 

SHEL 

7  1  4 

SHEL 

91S 

SHEL 

9  1  6 

SHEL 

91  7 

SHEL 

9!0 

SHEl 

919 

SHEL 

920 

SHEL 

921 

SHEL 

922 

SHEL 

923 

SHEL 

924 

SHEL 

925 

SHEL 

926 

SHEL 

927 

161 


1 

2 

C 

3 

C 

4 

C 

5 

C 

6 

C 

7 

C 

e 

C 

? 

10 

t  I 

I  1 

12 

13 

14 

15 

16 

1  7 

IP 

1  9 

2C 

21 

22 

C 

23 

24 

C 

25 

26 

C 

21 

26 

29 

3C 

31 

32 

33 

34 

c 

3S 

c 

36 

c 

37 

38 

c 

39 

c 

MO 

c 

41 

c 

42 

H3 

MM 

45 

46 

47 

48 

49 

BO 

51 

52 

53 

c 

SUBROUTINE  STrETRINN5,KH0M,AREAP) 

this  h0ut1ne  forms  the  element's  mass  matrix  and  the 
stress  (moment!  -  displacement  transformation  matrix 
evaluated  at  the  element  centroid 

the  global  forces  due  to  a  unit  value  of  applied  normal 
are  also  calculated 


PRESSURE 


COMMON  /QTSAR&/ 

1  XXI5)  , YY ( S  )  ,  Z* ( 5  >  ,HM(5)  ,HP(5)  .CM  I  3,3  )  ,  ALFA ( 3  )  ,Hw<5)  ,  RHO( 5,3)  , 

2  P(5I  ,T(5I  ,DT(5I  ,SMl5,3)  ,BM(5,3)  ,  TDI  SI  36  I  .TR0TI36)  ,5130,30)  , 

3  R I  30) 

COMMON  /TRIARG' 

1  A(3),B(3),HI)),HPT(3I,CI3,3),SMT(3,3I,BMT(3,3),FT(I2I, 

2  PXl3),PY(3),pT(3),RM(3l,STI12,12l 
COMMON  /EM/ 

1  LM(2  4),ND.NS,STRAN(6,30),NC(3),AREA,XMM,TD1(13),TD2(I3), 

2  TD3I9)  ,TR|  19)  ,TR2(9)  .TR3I9I  ,SC5T(3,6)  ,  X5T I  3  ,6  I  ,SLCT9(3,9)  , 

3  XLCT9(3,9),DUMMY(239|,RF(24,4),XMI24),5A(I2,24|,SF(12,M),PF(24) 
COMMON  /TRANS  V / 

1  TI(3I,T2(3),T3(3),T0(3,3) 

DIMENSION   IPERMQI4) 

DATA         IPERMQ/2,3,4  ,  1/ 

NEN  *  N I N 0 { N N S  1 1 ) 

WG  »  1.0 

AREAP^O.O 

I F I NEN.EQ.4  I  wG  =  0.25 

N3  =  2»NEN  -  3 

N  C  I  3  I  =»  N  3 

NTRI  =  3»NEN  -  8 

COMPUTE  DIRECTION  COSINE  ARRAT  FOR  THE  ELEMENT  AXES 

CALL  QDCOS  (NTRI  ,XX,  YY  ,Z2 ,T0 ) 

CLEAR  THE  MASS  MATRIX  VECTOR,  STRESS  TRANSFORMATION  ARRAY  AND  THE 
GLOUAL  FORCE  VECTOR  DUE  TO  A  UNIT  NORMAL  PRESSURE 

DO  10  K= 1 ,ND 

XM IK )  *  0.0 

PF  I K  I  =  0.0 

DO  5  I =1  ,NS 
5  STRANII.K)  =  O'O 
|U  CONTINUE 

IF  (NTRI  .EQ.  1  )  GO  TO  20 

DO  15  I =25 , 30 

DO  15  J=l ,NS 
I  5  STRAN ( J,  I  )  =  O'O 
20  CONTINUE 


162 


54 

C 

55 

C 

56 

C 

57 

58 

59 

60 

61 

62 

C 

63 

C 

64 

C 

65 

C 

66 

67 

C 

68 

C 

69 

C 

70 

c 

71 

c 

72 

73 

74 

75 

76 

c 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

c 

100 

c 

101 

c 

102 

c 

103 

104 

105 

c 

1  06 

c 

107 

c 

30 
40 


45 


50 


60 


LOOP  OVER   NTRl    TRIANGLE  SUB-ELEMENTS  ASSEMBLING  STRESS/ 
DISPLACEMENT  TRANSFORMATION  AND  MASS  MATRICES 

DO  300  NT*l  .NT*  I 

N I  =  NT 

N2  =  I PERMQ (Nil 

NC (  1  I  =  N  1 

NC ( 2  I  =  N2 

compute  direction  cosines  of  local  triangle  system  and  the 
triangle  projections  (a,b1  onto  the  local  x.y  plane 

call  tdcos  ( n 1  t n2 . n j , x x , y y , z z  ,  a  ,  b  1 

compute  mass  coefficients  for  the  sub-element  (triangle)  and 
assemble  into  the  mass  array.   also,  compute  nodal  forces 
due  to  unit  value  of  normal  pressure. 

area  =  (a(3)«b<2)  -  a ( 2  1  *b ( 3  )  1  •  0.5 

areap=areap+area 

xmm  »  (hwin1 )+hw(n2)+hwin3 » »•  area*  rh0m/  9.0 

FAC  *  AREA/  3.0 


DO  40  1=1,2 

K  =  6« ( NC (  I  )  -  |  ) 

DO  30  L=l  ,3 

K  »  K+  1 

PFIKI  =  PF ( K  I  ♦ 

XM( K )  =  XM ( K  I  ♦ 

CONT I NUE 

DUM  *  XMM*  0.5 

DU2  "  FAC*  0.5 

IF (NTRl  .EQ.  I  I  GO 

K I  =  6» (Nl-1  I 

K2  =  6* (N2-I > 

GO  TO  50 

K  1  =  6» (N3- I > 

K2  =  K  I 

DO  60  L« 1 , 3 

K  1  *  K  1  ♦  I 

K2  *  K2+1 

PFIKI 1  =  PF(K 1 ) 

XMIK I  1  =  XM(K  |  ) 

PF (K2 1  =  PF (K2  > 

XMIK2  1  =  XM( K2  > 


FAC»  T3(L) 
XMM 


TO  45 


DU2» 
DUM 
DU2« 
DUM 


T3(L  1 
T3(L  » 


FORM  TRANSFORMATIONS  BETWEEN  SUB-ELEMENT  (TRIANGLE)  LOCAL 
SYSTEM  AND  THE  GLOBAL  COORDINATE  SYSTEM 

CALL  TRFPRD  ( 0  .  NE N  ,  TD I  5  ,  TD  I  S  ,  TD  I  S  ,  T D  1  ,  TD2  ,  TD 3  I 
CALL  TRFPRD  ( 0  .  NE N  ,  T RO T  ,  TRO T  ,  T RO T  ,  T R 1  ,  T R 2  ,  T K 3  I 

MEMBRANE  CONTRIBUTION 


163 


100 
109 
I  IC 

1 1 1 

I  12 

I  I  3 

I  IH 

1  15 

I  16 

I  17 

1  IB 

1  IV 

120 

121 

122 

123 

I  2M 

125 

126 

127 

128 

1  29 

130 

I  31 

132 

I  33 

I  3M 

135 

136 

I  37 

138 

139 

IMO 

l'U 

1  H2 

M3 

1  MH 

IIS 

116 

M7 

1  H8 

IH? 

150 

151 

152 

153 

I5H 

155 

156 

157 

158 

159 

160 

161 


CALL  CSTSTR  (SCST.XST) 

K  I   =  0 

DO  100  JJ= I , 3 
M  ■  6* I NC I JJ  )  -I  I 
DO  100  L=l  ,3 
M  *  M+  I 
K  I   =  K  1  ♦  I 
DO  0  0  K  2  =  1  ,  3 

STRANIK2.M)  =  STNANIK2.M)  +(SC5T(K2,JJ    )•  T  D  1  1  K  t  ) 
1  ♦  5C5T (K2, JJ+31 •  TD2IK1))*  WG 

80  CONTINUE 

ioo  continue; 


RENDING  CONTRIBUTION 

DO  110  K=  I  ,  3 
N  -  NC(K» 
110  HPT(K)  =  H  P  <  N  | 

CALL  LCT9ST  ( sL C T 9  ,  3  ,  X LC T 9 ) 

DO  200  JJr|  ,3 

I  =  3»  I  JJ-1  1 

M  x  6» (NC ( JJ1-I  I 

DO  180  L=l  .6 

M  =  H*  1 

IFIL.GT.3  )  GO  TO  I  20 

K 1  =  I+L 

DO  115  K2»l  ,3 
115  STRAN(K2*3  ,H  I  =  S T R AN ( K 2 ♦ 3  ,  M  )  ♦   SLC T 9  I K 2  .  J J  )  •  T D 3  I  K  I  >  •  WG 

GO  TO  180 
120  K 1  a  I*L-3 

DO  1 30  K2=l  ,3 

STRANIK2  +  3.M  I  -  S  T  R  AN  (  K  2  ♦  3  ,  M  I  ♦  I  SLC  T  9  (  K  2  ,  J  J  ♦  3  >  •  TK1IKH 
1  ♦   5LCT9IK2, JJ*6  I  •  TR2(KI))»  WG 

130  CONTINUE 
180  CONTINUE 
200  CONTINUE 

300  CONTINUE 

PERFORM  CONDENSATION  ON  INTERNAL  DEGREES  OF  FREEDOM  FOR 
QUADR  ILA ■ £RAL  ELEM£NT»S  5 T RE 55/D I SPL ACE  ME N T  TRANSFORMATION 

IF (NTRI  .EQ.  1  I  GO  TO  500 

DO  MOO  N=  I  ,6 

K  =  30-N 

L  ■=  K*  I 

PI  V  '     5IL.LI 

IF  IP1 V«LT.  1  .CE-8)  GO  TO  MOU 

DO  390  K I = 1 ,6 

DUM  =  STRANIK | iL 1 


164 


162 

STRAN(Kl.L)  ■  STRANIK1.L 

1  63 

DO  380  1  *  1  ,K 

I6M 

STRANI K 1  ,  I  )  =  STRAN 1 K 1  ,  1 

165 

380 

CONT INUE 

1  66 

390 

CONT I NUE 

167 

MOO 

CONT INUE 

1  68 

C 

16? 

500 

DO  510  K 1 »1 ,N5 

1  70 

DO  510  K  2  = 1  , N 0 

1  71 

SA (Kl  ,K2  1  =  STRAN<  K 1  ,K2 1 

172 

510 

CONT INUE 

173 

C 

17M 

RETURN 

175 

END 

I  > 


PI  V 


51  I  ,L  I 


DUM 


165 


i 

2 

3 

H 

5 

6 

7 

B 

9 

10 

1  I 

1  2 

I  3 
IH 

IB 
16 
I  7 
18 
19 
20 
21 
22 
23 
2H 
25 
26 
27 
28 
29 
30 
31 
3  2 
33 
3H 
35 
36 
37 
38 
39 
HO 
HI 
H2 
H3 
HH 
H5 
H6 


SUBROUTINE  CSTSTR  (SCST.XST) 

THIS  SUBROUTINE  FORMS  THE  S T RE 5S /D  I  SPL ACE  MEN T 
MATRIX  FOR  A  CONSTANT  STRAIN  TRIANGLE  (CST) 

••••  INPUTS 


TRANSFORMATION 


A  ,B,C 


AS     IN     5LST. 


OUTPUTS 


SCSTI  I  ,JI 


l"l  .  ..3,  J»l.  .  .6.    MEMBRANE  STRESSES   S I G ( X X ) / I  I  =  I  I 
5lG( YY )/(  1*2)  ,  SIG( XY  I /(  ] =3  I  .    IN-PLANE  NODAL 
DISPLACEMENTS   U(l)/(JM>,  U(2l/(J«2)i  U < 3 ) / ( J  =  3  )  , 
V<l)/(J=H),  V(2)/(J=S),  VI3)/(J=6I. 


COMMON  /TRIARG/ 

1  A(3),B(3),H(3>.HPT(3),C(3,3),SMT(3,3),BMT(3,3I, 

2  U(6I,V(6),W(3'»RX(3),RY(3I,RM(3I,ST(I2,I2) 


c 

DIMENSION 

scs 

c 

DO     10     1=1,3 

XST (  1  ,  I +3  |     = 

0*0 

10     XST( 2,1         )     = 

0*0 

SCSTI 3,6  I  ,XST( 3,61 


UUM 
DUM 
DUM 
UUM 


AREA  =  A<3)»  B<2)  -  A(  2  )•  B13) 
I F ( AREA.LT  •  I  .0E-8  I  STOP  100 

DUM  =  I  .O/AREA 

STRAIN-DISPLACEMENT 

DO  20  K=l  ,3 

XST<  1  ,K    )  =  B<K  I  • 

XST I  2  ,K  +  3  )  =  A  <K  )  • 

XST I  3,K    )  =  A  IK  »• 
20  XST (3,K*3)  =  B<K  >  « 

STRESS-DISPLACEMENT 

DO  50  1-1,3 

DO  HO  J= I  ,6 

5CST I  I  ,  J  1  = 

DO  30  K  =  1  ,3 
30  SCSTI  I  ,J>  * 
HO  CONTINUE 
50  CONTINUE 

RETURN 
END 


0.0 

SCST( I ,J> 


♦  C I  I  ,K  )  •  XST IK, J) 
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1 

2 

C 

3 

C 

4 

C 

5 

c 

6 

c 

7 

c 

8 

c 

9 

c 

ID 

c 

1  1 

c 

I  2 

c 

1  3 

c 

IH 

c 

15 

c 

1  6 

c 

1  7 

c 

18 

c 

1? 

c 

20 

c 

21 

c 

22 

23 

24 

25 

c 

2b 

27 

c 

28 

29 

c 

30 

31 

c 

32 

33 

c 

34 

35 

36 

37 

38 

3V 

'10 

11 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

c 

SUBROUTINE  LCT'ST  < SLC T 9 , NODE , XLCT9 ) 

THIS  SUBROUTINE  FORMS  THE  MOMENT  R E SUL T A N T /D I SPL A C E ME N T  TRANSFOR- 
MATION MATRIX  FOR  A  3  NODE.  LCCT-9,  TRIANGULAR  BENDING  ELEMENT. 

•  •••     INPUTS 

A,8,C,H  AS     IN    SLCCT. 

NOOE  MODE  (1.2  OR  3)  AT  WHICH  THE  MOME N T /D I SPL ACE  ME N T 

IS  FORMED 


■•••OUTPUTS 


SLCT9(  1  ,  J( 


IM...3,  J=1...9.     MOMENT  RESULTANTS  AT  TRIANGLE 
VERTEX  (NODAL  POINT)  NUMBER   'NODE*  ...       M(XX)/ 
(1=11,  M(YY)/(I«2),  M(XYI/(I=3I.    TRANSVERSE  PLATE 
DISPLACEMENTS   W(1)/(J=1),  W(2I/(J*2),  W(3)/(J=3), 
AND  IN-PLANF.  ROTATIONS   R  X  (  1  )  /  (  J  *  4  )  ,  RX(2I/(J«5», 
RX(3)/(J  =  61,  HVI  1  »/■(  J-7)  ,  RY  (2)/( J«8>  ,  RY(3)/IJ*9», 


COMMON  /  T  R  I  A  R  G  / 
I  A(3)  ,B(3)  ,HMT ' 3 1  ,H(3I  ,C(3,3)  ,SMT(3,3)  ,  BMT  <  3  ,3 )  , 
1  FT(12),U(3),tX(3),TY(3),RM(3),ST(I2,12) 

DIMENSION      q(3,6),IPERM(3),SLCT9(3,9),XLCT9(3,9) 

EQUIVALENCE   (Q,ST) 

DATA  lPERM/2  ,3,1/ 


AREA  =>  A(  3  I  •  B<  2  ) 


A  (  2  1  •  B  (  3  ) 


DO  150  I=>l  ,3 

J  =»  1PERM(  I  I 

X  »  A (  I  )  •  • 2  ♦  B(l>»»2 

U(ll  =  -(A(I)«  A(J)  + 

X  =  SQRT( X  I 

Y  =  2.0»  AREA/  X 

TXII)  =    Y»  A(l)/  X 

TY(I)  =  -Y»  B(I)/  X 

A  1  =  A (  I  I  /  AREA 


8(  I  )  •  B(J)I/  X 


A2 
Bl 
B2 
Ql  1 


A(  J»/ 
B(  1  )/ 
B  (  J  )  / 

I    )  * 

I 


5  0 


Q(  2,  I  I 
Q( 3,  I  ) 
Q( 1 , I *3) 
q  (  2  ,  I  ♦  3  ) 
Q  (  3  ,  I  ♦  3  I 
CONT  I  IJUE 


ARE  A 
ARE* 
AI<Efl 


2.0' 
2.0* 
2.0' 
2.0" 


B  1  • 

A  1  • 

A  I  * 

B  I  • 

A  1  • 

(  A  1  • 


Bl 
A  1 
bl 
B2 
A2 
B2- 


A2»  Bl  ) 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7  I 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


250 


NODE 

IPERM  |  I  ) 
IPERM( J  ) 
-  H  (  I  I  •  •  3  / 

A  U  ) 

A  IK  I 

a  (j ) 

B  (K  I 
U  (J  ) 
U(K  ) 

1.0  -  U2 
I  .0  -  U3 


R2 
B3» 
A2 
A3* 

W3 

W3 

B3 

A3 

-  C52 

-  C62 

-  C82 

-  C92 


I  = 
J  = 
K  = 

FAC  -  H { 1  )  • • 3 /  12.0 
A2 
A3 
B2 
B3 
U2 
U3 
W2 
W3 

CZ1  -  -( 2.0+W2>« 

C22  *    B2»  W2  - 

C3I  '  -<2.0+W2»* 

C32  •    A2»  W2  - 

C52  *    B2-  B3» 

C62  «     A2-  A3* 

C82  =    B2»  U2- 

C92  =    A2«  U2" 

C51  =     4.0»  B3 

C61  -     4.0*  A3 

C8  1  =  -4.0*  R2 

C91  =  -4.0«  A2 

DO  250  L=  1  ,3 
Q  I  1  =  Q  (  L  ,  1  I 
Q22  »  Q(L,J) 
Q33  -  QIL.K  > 

q  l  2  '   git,  1+3) 

Q23  »  Q(L  ,  J+3) 

031  =  QIL  ,K  +  3 ) 

(Jl   «  Q22  - 

Q2   •  Q22  - 

Q3  '    Q33  - 

Q4   =  Q23  ♦ 

Q5   «  Q23  - 

CURVATURE  - 

XLCT9IL  ,  I  ) 

XLCT9IL  ,  J  I 

XLCT9( L  ,K  ) 

XLCT91L  ,1*31 

XLCT9 (L  ,  J  +  3  ) 

XLCT9  I  L  ,K  +  3 ) 

XLCT9 (L  ,  I +6 ) 

XLCT9 ( L  ,  J  +  6  > 

XLCT9 ( L  ,K  +  6  ) 

CONT I NUE 

MOMENT  -  DISPLACEMENT 

00  300  I  =  1  i  3 

DO  290  J=  I  ,9 

DUM  =  U.O 

DO  280  K=  1  i  3 


■  I  2 

03 

■  (2, 
U3 


0  +  U3  )  •  B3  ♦ 


0  +  U3  )  •  A3 


TX  (  K  ) 

♦  TX  I  K  ) 

♦  T  Y  (  K  I 

♦  TY IK  ) 

-  TX  IK  ) 

-  TY  IK  ) 

-  TX ( J) 

-  TY( Jl 


TX(  J) 

TX(J) 
TY(  J) 
TY  (  J  ) 


Q33 
Q23 
Q23 
HI 
Ql 

DISPLACEMENT  RELATION 
=  -  6  .  •  U  1  1*3.  •  I  (U3-W2)»Q1  +  (U3*W2)«(J23) 

6.  «U22*3.  •   w3»(j4 

6. •  (J  33  +  3. •   U  2  •  Q  5 


<C2  I  »Q  I  +C22»y23  +  4 
IC5I»Q22*C52«QJ> 

I  C8  I  •Q33  +  C82«(J2  ) 
(C31  »t|  I  +C32»Q23  +  4, 
(C61 *y22+C62»03 I 
IC9  1  »W33  +  C92«(J2  ( 

RELAT ION 


♦  I B2»Q31-B3»Q1 2  )  )  •  0-5 

•  0«5 

•  0.5 

•  I A2»Q3l-A3»Q  |  2  1  I  •  0.5 

•  0-5 

•  0.5 
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108 
1  09 
1  10 
1  1  I 
I  12 
1  13 
1  M 


280  DUM  *  DUM 

SLCT9I  I  ,  J) 
290  CONTINUE 
300  CONTINUE 

RETURN 
END 


■  C(  I  iK  I  •  XLCTVIK ,J) 
=  -FAC»  DUM 
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SUBROUTINE  QDCOS  <NiX,Y,Z,T) 

THIS  SUBROUTINE  COMPUTES  THE  DIRECTION  COSINES  OF 
ELEMENT  SYSTEM  OF  A  QUADRILATERAL  (N=4)  OR  SINGLE 


THE  LOCAL 

TR  I  ANGLE  (N»l  ) 


D  1  MENS  I  ON  X (  1  )  .  Y (  1  I  ,  HI),     1(1) 
X  (2)  *X  I  3  )-X  t  NI.-XI  I  I 
Y(21+YI3)-Y(N)-Y(1) 

Z12)+Z(.3)-Z(N)-Z(  1  I 

X  (  3  I  -t-X  (  N  )-X  (  1  ) -X  I  2  ) 

Y ( 3  I *Y I N  )-Y (  I  )-Y ( 2  ) 
Z ( 3 l+ZINJ-Zl  1  )-Z (2) 

X I  »»2*Y  I  »»2*Z  1  »»2 
( X 1 »X2+Y | »Y2*Z1 *Z2 ) /SI 
X2  -  C»X l 
Y2  -  C«Y 1 
Z2  -  C»Z| 

(SI  ) 

( X2»*2+Y2«»2*Z2»»2  ) 


X  I 

Y  I  = 
Zl  * 
X2  = 
Y2  = 
Z2  = 
SI  = 
C 

X2  = 
Y2  = 
Z2  = 

51  = 

52  = 
X  1  = 
Yl  ■ 
Zl  ' 
X2  = 
Y2  = 
Z2  = 
T  (  I  )  = 
T  <  2  )  = 
T  (  3  I  = 
T  (  4  1  * 
T  (  5  )  = 
T  (  6  )  = 
T  (  7  )  = 
T(8)  = 
T  (  9  )  = 
RETURN 
END 


SQRT 

SQRT 

Xl/SI 

Yl/Sl 

Zl/Sl 

X2/S2 

Y2/S2 

Z2/S2 

=  XI 

=  X2 

=  Yl »Z2- 

*  Yl 

=  Y2 

=  Z I »X2-Z2»X  1 

=  Zl 

=  Z2 

=  Xl«Y2-x2»YI 


■y2»Z1 


SHEL  928 

SHEL  929 

SHEL  930 

SHEL  '31 

SHEL  932 

SHEL  933 

SHEL  934 

SHEL  935 

SHEL  936 

SHEL  937 

SHEL  938 

SHEL  939 

SHEL  940 

SHEL  941 

SHEL  942 

SHEL  943 

SHEL  944 

SHEL  945 

SHEL  946 

SHEL  947 

SHEL  948 

SHEL  949 

SHEL  950 

SHEL  951 

SHEL  952 

SHEL  953 

SHEL  954 

SHEL  955 

SHEL  956 

SHEL  957 

SHEL  958 

SHEL  959 

5HEL  960 

SHEL  961 

SHEL  962 

SHEL  963 
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23 
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28 
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SUBROUTINE  TDC°S  I N 1  i N2  ,  N3 , X • Y , Z , A t B ) 

THIS  SUBROUTINE  COMPUTES  THE  DIRECTION  COSINES  OF  THE  LOCAL 
SYSTEM  AND  THE  PROJECTED  DIMENSIONS  OK  A  TRIANGLE  COMPONENT 


COMMON 

EUUI  VAL 

1   (T23.T 

D  I  MENS  I 


AI 
Bl 
C  1 
A2 
82 
C2 
T31 
T32 
T33 
5  ?= 
T3I 
T32 
T33 
Tl  1 
T12 
T  1  3 
S  => 
Til  = 
T  12  * 
T  I  3  = 
T21  * 
T22  * 
T23  » 
All)  = 
A  (  2  )  = 
Bill  * 
B  (  2  1  = 
A(3)  = 
B(  3)  = 
RETURN 
END 


XI 
Y  I 
Z( 
X( 
Y( 

Z  ( 
z  B 

'  C 
«  A 
S'JR 
=  T 

*  T 
=  T 
=  T 
«  T 

*  T 
SQR 
=  T 
«  T 
=  T 

*  T 
a  T 
»  T 


/TRA 
ENCE 
2(3) 
ON 

Nl  )- 
N  I  )- 
Nl  )- 
N2  |- 
N2  )- 
N2  )- 
1»C2 
I  »A2 
1  «B2 
T  (T 
31/S 
32/S 
33/S 
33.T 
3  I  »T 
32. T 
T  (T 
1  l/S 
I2/S 
13/S 
13. T 
1  l»T 
12.T 
-T|  1 
T  1  1 
T21 
-T21 
-A(  1 
-B(  1 


NSF^ 

ITU, 
)  ,  I  T3I 
XI  1  )  , 
X(N3> 
Y1N3) 
Z  I  N  3  I 
X(N3) 
YIN3) 
Z  (  N  3  ) 
-B2»C  1 
-C2»AI 
-A2»BI 
31 .»2+ 


T 1  ( 3)  ,T2( 3)  ,T3I3I  ,  T  (9) 

Tl), (112, Tl(2)),(T13,Tl(3)),(T2l,T2),(T22, 72(21 

,T3)  ,  (T32.T312)  )  ,  ( T33.T3I 3)  ) 

Y(l),  Z(|),  All),  Bill 


T32».2  +  T33»»2  ) 


( 5 )-T32*T ( 8  ) 
I  8 )-T33»T ( 2  ) 
(2)-T31»T (5) 
1  1 »»2*T 1 2»»2  +  T I 3«*2  > 


32-T12»T3J 

33-T | 3«T3I 

31-T  |  I  »T32 

»A2-T  12.B2-TI3.C2 

•  A | *T  12«B 1 +T I3»C 1 

•A2*  T22.B2  +  T23.C2 

»A  J-T22.BI-T23.C I 

)-A( 2) 
>-B«2) 


SHEL 

964 

SHEL 

965 

SHEL 

966 

SHEL 

967 

SHEL 

968 

SHEL 

969 

1  .SIIEL 

970 

SHEL 

971 

SHEL 

972 

SHEL 

973 

SHEL 

97H 

SHEL 

975 

SHEL 

976 

SHEL 

97  7 

SHEL 

978 

SHEL 

979 

SHEL 

980 

SHEL 

98  1 

SHEL 

982 

SHEL 

983 

SHEL 

98H 

SHEL 

985 

SHEL 

986 

SHEL 

987 

SHEL 

988 

SHEL 

989 

SHEL 

990 

SHEL 

991 

SHEL 

992 

SHEL 

993 

SHEL 

99H 

SHEL 

995 

SHEL 

996 

SHEL 

997 

SHEL 

998 

SHEL 

999 

SHELlOOO 

SHELlOUl 

SHEL1002 

SHEL 1U03 
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i 

2 
3 
4 
5 
6 
7 

e 

9 
10 

1 1 

12 
13 

I  4 
IS 
16 
17 

ie 
1? 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
36 
36 
37 
38 
39 
40 
HI 
42 
43 


LOCAL 
CORNERS 


SUBROUTINE  TRfPRD  ( M  ,  NE N  ,  9  I  ,  Q 2  ,  « 3  ,  P 1  ,  P2  ,  P 3 ) 

THIS  SUBROUTINE  GENERATES  THE  TRANSFORMATIONS  RELATING  A 
SUBTRJANGLE  SYSTEM  TO  THE  NODAL  DI5/R0T  SYSTEMS  AT  ITS  3 

COMMON  /TRANSF'   T I  I  3  I  ■ T 2  (  3  )  , T 3 (  3  I  ,  T(9) 
DIMENSION   P||l),  P2(l),  P3I1I,  (J  I  (  1  )  ,  Q2(l),  (J  3  (  1  ) 

EQUIVALENCE  (Tll,Tl),(T12,TH2lt,(TI3,T|l3l),(T21,T2),(T22tT2(2)l 
I   (T23,T2(3)),(T31,T3),n32,T3l2)l,lT33,T3(3)l 


150 
I  80 


2(j0 


2  4 'J 


260 


300 


00  300 
J  =  I  ♦ 
K  '  I  ♦ 
P  1  (  I  )  * 
PI  (J)  = 
P2(  I  I  = 
P2( J  I  = 
P3(  I  I  = 
P3IJI  = 
IF  (  NEN 
=  T  (  I  I 
=  T  (  J) 
=  TIKI 
(  M  ) 
I  M  ) 


I   = 

3 
6 
T|  I 

T  1  ( 
T2( 
T2I 
T3I 
T3( 
NE  • 


1  ,3 


4  ) 


GO  TO  150 


C  1 
CJ 
CK 
IF 
IF 


P  I  (K  ) 
P2  (  K  ) 
P3(K  1 
GO  TO 
CI 
CJ 
CK 


260,260, 
180,  180, 
'     Till) 
'     T2(  I  ) 
=  T3(  I  I 
300 
Q3(  I  ) 
«3(  J) 
Q3(K  ) 


240 
200 


PI  (  I  I  = 
PI  (J)  = 
P2(  I  I  = 
P2( J  )  = 
P3(  I  I  - 
P3( J  I  = 
PI  (  K  )  * 
P2  I  K  )  = 
P3( K  I  = 
CONT I NUE 
RETURN 
END 


Tl  1*0|  (  I  I 
T  1  1»Q2<  I  I 
TZ1 *Q  1  I  1  1 
T2l«02»  I  » 
T31 »Q|  I  I  1 
T31«Q2<  1  • 
T 1 1 »C  I 
T2l»C| 
T  3  I »C  I 


T 12»QI ( J> 
T12«Q2U) 
T  2  2  »  «  I  (  J  I 
T22»Q2 ( J  I 
T  3  2  •  Q  1  (  J  ) 
T32»Q2( J  ) 
TI2»CJ 
T22»CJ 
T32«CJ 


T  1  3»<j  I  (k  ) 
T  13»(J2(K  1 
T23»CJI  (K  ) 
T23»y2 ( K  ) 
T33»G|1  IK  I 
T33»u2(K  > 
TI3»CK 
T23»CK 
T33»CK 


SHEL 
SHEL 
SHEL 
SHLL 
SHEL 
SHEL 
SHEL 
.SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


I  004 
1005 
1  006 
10U7 
1008 
1009 
1010 
1011 
1012 
1U  1  3 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1  029 
1030 
1  03  1 
1032 
1033 
1034 
1035 
1036 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1  044 
1045 
1046 
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26 

27 

28 

29 
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31 

32 
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SUBROUTINE  SLsT  (M.KKK) 

THIS  SUBROUTINE  FORMS  THE  PLANE  STRESS  STIFFNESS  MATRIX  AND/OR 
THE  CONSISTENT  LOAD  VECTOR  OF  A  LINEAR  STRAIN  TRIANGLE  (LST)  WJTH 
6,  5  OR  4  NODAL  POINTS,  OR  OF  A  CONSTANT  STRAIN  TRIANGLE  (CST). 
LINEAR  ELASTIC  ANISOTROPIC  MATERIAL 


INPUTS 


M         NUMBER  OF  MIDPOINTS  INCLUDED  AS  NODAL  POINTS  (M=3,2,l 
FOR  LST,  M=0  FOR  CST).  NOTE..  MIDPOINTS  4-5-6  ARE 
LOCATED  ON  THE  SIDES  2-3,  3-1  AND  1-2,  RESPECTIVELY. 

KKK        OPERATION  FLAG 

KKK  LE  0  =  FORM  STIFFNESS  MATRIX  AND  LOAD  VECTOR. 
KKK  GT  0  =  FORM  LOAD  VECTOR  ONLY. 

Alp, Bill     1  =  1. .«3    PROJECTIONS  OF  SIDES  2-3,  3-1  AND  1-2  ONTO 
X  AND  -Y,  RESPECTIVELY. 

CM, J)       1  =  1.  ..3,  J=1...3     PLANE  STRESS  MATERIAL  MATRIX. 

H(I)         1=1. ..3    CORNER  THICKNESSES  (LINEAR  VARIATION  ASSUMED). 

PX(I),PY(I)    1  =  1.  ..3     CORNER  VALUES  OF  X-Y  COMPONENTS  OF  BODY  FORCES 
PER  UNIT  OF  ELEMENT  AREA  (LINEAR  VARIATION  ASSUMED)* 

SMTII.J)     1  =  1.  ..3,  J=1...3     INITIAL  MEMBRANE  STRESS  COMPONENTS 
SIG-XX  (J=l),  SIG-YY  (J=2)  AND  5IG-XY  (J=3  AT  THE 
CORNERS  1=1,2,3    (LINEAR  VARIATION  ASSUMED). 


OUTPUTS 


ST(I,J)      1  =  1. .NDF,  J=1..NDF   WITH  NDF  (NUMBER  OF  DOF)  =  6  +  2»M,  IS 
THE  ELEMENT  STIFFNESS  MATRIX  ASSOCIATED  WITH  THE  NODAL 
DISPLACEMENT  ORDERING 

U(  I  )  ,  V (  1  )  ,U( 2  I  ,  V ( 2  )  ,U( 3)  ,  VI3  +  M) 

WHERE  U(4),   ...  V(3+M),   IF  M  GT  0,  ARE  DEVIATIONS 
FROM  LINEARITY  AT  THE  MIDPOINTS  I...M* 

FT(I)       1*1. .NDF     CONSISTENT  NODAL  FORCE  VECTOR  ASSOCIATED 

WITH  THE  NODAL  DISPLACEMENT  ORDERING  DESCRIBED  ABOVE. 


LOGICAL  NOS 

COMMON  /TRIARg'  A(3>,B<3>,  H(J),   HPT(3»,  Ct3,3>,  SMT(3,3l, 
I  BMTI3.31,  FT(12),      P X ( 3  I  ,  P Y ( 3  )  ,  P T ( 3  )  ,  RM ( 3  )  ,  ST1I2.I2) 

DIMENSION  (J(3,3),  QA(3),  «  B  (  3  )  ,  A4(3),  B4(3),   I  P  E  R  M_l  3  )  i 
1  SXX ( 3  )  ,SYY (  3 )  ,  SXY ( 3  I 

EQUIVALENCE  (5XX,5MT),(SYY,SMT14)),(SXY,5MT(7)) 

DATA    I  PERM  / Z  ,  3  ,  1  / 

NOS  =  KKK  .GT  .0 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


1047 
104  8 
1049 
105U 
i  05  1 
1052 
1053 
1054 
1U55 
1U56 
1057 
1058 
105? 
1U60 
1  U6  1 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1U69 
1070 

107  I 
1072 
1073 
1  074 
1075 
1U76 
1077 
1078 
1079 
I  080 

108  I 
1082 
1083 
1084 
1085 
1  086 
1087 
1088 
1089 
1090 

109  1 
109  7 
1092 
1093 
1094 
1095 
1096 
1  098 
1099 


173 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
7C 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


I  HO 


150 


180 


190 
200 

220 


240 


NDF  *     6  ♦  2»M 

AREA  =  A ( 3 ) »B ( 2 | -A ( 2 ) »B( 3 ) 

SUMH  n  HI  1  )+H( 2  )+H(  3  ) 

HO  =  SUMH/3. 

IF  (HO)  500,500,140 

PXS  ■  PX (  1  I +PX  < 2 ) +  PX ( 3  ) 

PYS  ■  PY (  I  I +PY I  2  I  +PT (  3  1 

SXXH  =  0. 

SYYH  *  0. 

SXYH  =  0. 

DO  150   1=1,3 

CH  =  (  S(JMH*H  I  I  )  I  /24  . 

SXXH  =  SXXH  ♦  CH»SXX ( I ) 

SYYH  =  SYYH  ♦  CH»SYY  (  1  ) 

SXYH  =  5XYH  ♦  C  H • S  X  Y  (  I  ) 


HO/ ( 2.»AHEA  ) 
C (  I  ,  1  I  »F*C 
C ( 2 ,2  »»F*C 
C ( 3  ,  3  )  »F*C 
C  (  1  ,2 ) »F AC 
C  (  1  ,3 ) «fAC 
C ( 2 ,3  I  »fAC 

J  =  1  ,3 

J 

a  <PXS+PX(J>>«AREA/24. 

»  ( PYS  +  PY 1  J )) "AREA/24. 
60  T«  200 

1  »  1  ,  J 


FAC 

CI  1  = 

C22  » 

C33  =■ 

C  1  2  » 

C  1  3  * 

C23  - 

DO  200 

L  =t  J  + 

FT (L-l I 

FTILI 

IF  (NOS) 

DO  I  90 

K  =  1  +  I 

AA  =  A (  I  I  «A  U I 

BB  =  B I  1  I  »B ( J ) 

AB  *  A (  I  I  »B ( J  ) 

BA  =  H (  I  >  *A (J ) 

ABA  »  AU+RA 

STIK-I.L-II  =  C 1 1 »BB 

ST(K    ,L    )  «  C22»AA 

ST (K-l  ,L    I  =  C  12»BA 

STIK   ,L-1  )  =  C12«AB 

CONT INUE 

IF  (M)  350,350.220 

D  0  2  4  0   1  =  1,3 

A4 I  I  )  *  4. »A (  1  ) 

B4 (  1  )  =  4.»B(  I  ) 

J  =  IPE.KMI  I  ) 

K  ■  IPERM ( J ) 

R  *     H ( I ) /HO 

Q(  I  ,  1  )  =  0.1*R/15» 

Q( J,K )  =  0. 1-R/6C. 

Q(K.J)  =  Qt J,K  > 

DO  300   J  =  I  ,M 

Jl  =  IPERM(J) 

J2  =  IPLHM ( Jl  ) 

L  *  J  ♦  J  ♦  6 

FX  =  0. 


(BIJ)»SXXH+A(J)»SXYH) 
( A( J  I  »SYYH  +  B (J ) «SXYH I 


C33»AA 
C33»BB 
C33»AB 
C33»BA 


C 1 3»ABA 
C23»ABA 
C I 3*AA  • 
CI3»BB  ■ 


C23«BB 
C23»AA 


SHELl  1 

SHEL  1  1 

SHELl  1 

SHELl  1 

SHEL  1  1 

SHELl  1 

SHELl  1 

SHELl  1 

SHELl  1 

SHEL  1  I 

SHELl  I 

SHELl  1 

SHEL  1  1 

SHELl  1 

SHELl  1 

SHEL  1  1 

SHELl  1 

SHEL  1  1 

SHELl  1 

SHELl  1 

SHELl  I 

SHELl  1 

SHELl 1 

SHELl 1 

SHELl 1 

SHELl  1 

SHELl 1 

SHELl  1 

SHELl 1 

SHELl  1 

SHELl  1 

S  H  E  L  1  1 

SHELl 1 

SHELl 1 

SHELl 1 

SHEL  1  1 

SHELl  I 

SHELl  1 

SHELl 1 

SHELl 1 

SHELl  1 

SHELl 1 

SHELl 1 

SHELl 1 

SHELl 1 

SHEL  1  1 

SHLLl  1 

SHELl  1 

SHELl  1 

SHELl  1 

SHELl  1 

SHEL  1  I 

SHEL  1  1 

SHELl  1 

174 


I  08 

107 

I  10 

1  I  I 

I  12 

1  I  3 

1  M 

I  15 

I  16 

1  1  7 

1  18 

I  19 

1  20 

121 

122 

123 

1  2H 

I  25 

1  26 

127 

I  26 

129 

130 

I  31 

132 

133 

I3H 

135 

136 

137 

138 

139 

MO 

Ml 

M2 

M3 

I  MM 

M5 

M6 


250 


K 
IF 

M 

AB 
BA 
DB 
GO 
260  1  I 


3 
1  =  1. 
«  I  ♦  I 

(I  .GT.3  )  GO  TO  260 

=  All) »SUMQA 

=  A  I  I  ) «5UMQB 

=  B  (  I  )  »SUMcjA 

=  B  <  I  )  •SUMgB 

TO  280 

=  IPERMI I -3 • 

=  |Pf.HM(  I  1  ) 


00  HOO 
00  MOO 
HOO  ST ( I , J ) 
500  RETURN 
END 


SHEL 
SHEL 
SHEL 
SHLL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
5HEL 
SHEL 
SHEL 
SHEL 
SHEL 


1  154 
1  155 
1  156 
1  157 
1  158 
1  159 
1  1  60 
1161 
1  162 
1  163 
1  I  6H 
I  165 
1  166 
1167 
1  168 
1  I  69 
I  170 
1171 
1  I  72 
I  1  73 
I  I  7H 
1  I  75 
1  1  76 
1177 
1  1  78 
I  1  79 
1  ISO 
1181 
1  182 
1  183 
1  184 
1  185 
1  186 
1  187 
1  188 
1  189 
I  I9U 
1191 
1  192 


175 


i 

2 

3 

H 

S 

6 

7 

8 

9 

10 

1  I 

12 

1  3 

1  H 
IS 
16 
17 
18 
19 
70 

2  I 
22 
23 
2M 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3M 
35 
36 
37 
38 
39 
MO 
H  1 
M2 
M3 
MM 
M5 
M6 
M7 
M8 
M9 
50 
51 
52 
53 


SUBROUTINE  SLCCT  (M.KKK) 

THIS  SUBROUTINE  FORMS  THE  PLATE  BENDING  STIFFNESS  ANO/OR  THE 
CONSISTENT  LOAD  VECTOR  OF  A  LINEAR  CURVATURE  COMPATIBLE  TRIANGLE 
(LCCT)  WITH  6,  5,  M  OR  3  NODAL  POINTS 


1 NPUTS 


M  NUMBER  OF  MIDPOINT  DEGREES  OF  FREEDOM  (M  -3,2,1,0). 
NOTE.'  MIDPOINTS  M-S-6  (IF  INCLUDED!  ARE  LOCATED  ON 
SIDES  2-3,  3-1  AND  1-2,  RESPECTIVELY. 

KKK        OPERATION  FLAG 

KKK  LE  0  =  FORM  STIFFNESS  MATRIX  AND  LOAD  VECTOR. 
KKK  ST  0  "  FORM  LOAD  VECTOR  ONLY. 

A  <  I  >  t  B  (  I  I     1  =  1. ..3     PROJECTIONS  OF  SIDES  2-3,  3-1  AND  1-2  ONTO 
X  AND  -Y,  RESPECTIVELY. 

CM, J)        1=1. ,.3,  J=1...3     PLANE  STRESS  MATERIAL  MATRIX. 

H(I)         1=1. ..3     CORNER  THICKNESSES  (LINEAR  VARIATION  ASSUMEDI. 

PTII)       1=1. ..3    CORNER  VALUES  OF  LATERAL  DISTRIBUTED  LOAD 
(LINEAR  VARIATION  ASSUMED). 

BMT(ItJ)     |=l. ..3,  J=l...3     INITIAL  BENDING  MOMENT  COMPONENTS 
MOM-xX  (J=ll,  MOM-YY  (J=2)  AND  MOM-XY  (J=3)  AT  THE 
C0RNER5  I » 1  - • -  3    (LINEAR  VARIATION  ASSUMED). 


OUTPUTS 


ST(I,J)  1=1. .NDF,  J=1..NDF  WITH  NDF  (NUMBER  OF  DOF)  =  9*M,  IS 
THE  ELEMENT  STIFFNESS  MATRIX  ASSOCIATED  WITH  THE  NODAL 
DISPLACEMENT  ORDERING 

WI  I  )  ,RX (  1  )  ,RY  (  1  )  , W( 2)  ,   ....  RY(3l,RM(|),   ...  RM(M) 
WHERE  RM(|),  ...  RM(M),  IF  M  GT  0,  ARE  MIDPOINT 
DEVIATIONS  FROM  NORMAL  SLOPE  LINEARITY 

FT(I)       1  =  1.  .NDF     CONSISTENT  NODAL  FORCE  VECTOR  ASSOCIATED 

WITH  THE  NODAL  DISPLACEMENT  ORDERING  DESCRIBED  ABOVE. 


LOGICAL  NOS,  FLAT 

COMMON  /TRIARg/  A(3),B(3I,  HMT(3),  H(3),    C(3,3),  SMT<3,3), 
I  BMT(3,3),  FT(12),      PX ( 3  I  ,  P Y ( 3  )  ,  PT ( 3  )  ,  RM ( 3  )  ,  ST(I2,I2) 

DIMENSION   P(2l,12),  GI21I,  U(3,6>,  Q8(3,6I,  TI3),  U(3),  HTI3) 
1   TX(3),  TY(3),  IPERMI3),  XM(J,3),  XM0I3) 

EQUIVALENCE  (cMll,C(i)),(CM12,C(2l),(CMI3,C(3)),(CM22,L(5l), 
1   ( CM23,C(6  )  )  ,  (CM33.C (9)1 

DATA  IPERM/2,3.1/ 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


1  193 
1  19M 
I  195 
1  196 
1197 
1  198 
I  199 
I  200 
1  201 
1202 
12U3 
1  20M 
I  205 
1206 
1207 
1208 
I  209 
1210 
1211 
1212 
12  13 
1  2IM 
1215 
1216 
1217 
1218 
1219 
1220 
I  221 
1222 
1223 
1224 
1225 
1226 
1227 
I  228 
1229 
1  230 
I  231 
1232 
123  3 
I  23M 
1235 
I  236 
I  237 
12MM 
1238 
1239 
1  2 '10 
1  2M  1 
1  2M2 
I  2M3 
1  2M5 


176 


51 
55 
56 
57 
58 
59 
60 
61 
62 
63 
61 
65 
66 
67 
68 
69 
70 
71 
72 
73 
71 
75 
76 
77 
78 
79 
8  0 
81 
82 
83 
81 
85 
86 
87 
88 
89 
90 
91 
92 
93 
91 
95 
96 
97 
98 
99 
100 
101 
102 
103 
101 
105 
106 
107 


HO  =  (HI  I  I +HI 2  >*H<  3  >  ) /3. 

IF  IHO.LE .0. I   GO  TO  1000 

NDF  -  9  ♦  M 

N05  =  KKK.GT.O 

FLAT  =  (H(  1  >  .eQ.H< 2 >  I  .  AND.  (HI  2  )  .EQ'HI 3)  ) 

AREA  =  A  I  3 ) »B ( 2 )-A ( 2  I »B ( 3  I 

FAC  =  H0»»3»AREA/861  . 

PTF  -  AREA/6180. 

T I  3)  =  1  . 

DO  150   1=1,3 

J  =  IPERM(  I  I 

K     =  1PERM ( J ) 

X  =  A (  I  ) »»2  +  B  (  I  )  »»2 

UII)  =  -I  At  I  ) »A ( J)*B(  I  )»B< J)  )/X 

X  =  5  Q  R  T  I  X  I 

Y  =  2.»AREA/X 

HT  I  I  )  =    2. • Y 

TXII)  =   Y»A([)/X 

TY(I  )  =  -Y»B(  I  t/X 

A  I  =  AIM /AREA 

A2  *  A (J  )  /AREA 

B I  =  Bill /AREA 

B2  =  BUI/AREA 


Q  (  I  ,  1  I 
0(2,1) 
Q(  3,  I  ) 
Q(  I  ,  1  +3  )  ! 
Q(  2,  1+3)  ■■ 
Q  (  3  ,  I  +  3  )  : 
DO  1  20   N 
120  XM (N,  I  )  = 
IF   (FLAT  ) 
DO  1  10   N  =  1  , i 
L  =■  IPERM ( N ) 
T (  I  )  =  H(N  l/HO 
T(2I  *  H ( L  )  / H  0 
IF  I  T  I  1  )  .GT.O.  1 
CI  =  Til) 
C2  =  T  U> 
C3  =  T  <K  ) 
CI  =  C2+C3 
C 1  1  *  C 1 »C  1 


110 
I  50 


Bl  »B1 

A  1  »A  1 

2. .A  1 .p  I 

2..B 1 »B2 

2. »A  1  »A2 

2. « I  A  1 »B2*A2»B  I  ) 

-  »,3 

BMT ( N,  I  )  •  AREA/72. 

GO  TO  150 


XM(N,I1  =  X  M I N  ,  I  )  / T (  1  I  * • 3 


C2  3  -  C2»C3 

C5  =  C1» I  3. »C 1 +C1 ) 


C6  =  C5  +  3.  ♦C'**C1  ~ 

QB I N  ,  I    ) 

QB I N ,  I +3  ) 

CONT I NUE 

DO  200    1=1,3 

J  =  IPERM( I ) 

K     »  I  PERM! J  ) 

II  =  3»  I 

JJ  =  3»J 

KK  =  3»K 


6.»C 1  I  -  2. «C23 

1.« (C 1  1 *C23  ) 
I C  * • I  10«»CI  l-3.»C23)+Cl»C5)/17.5 
(C  1  » (C  1  l-2.»C23  )  +C1»C6 ) /3b. 0  -  I 


2.0 


5HLL1216 

SHEL I  217 

SHEL1218 

SHELI219 

SHELI250 

5HEL  1  251 

SHELI252 

SHEL1253 

SHEL1251 

5HEL1255 

SHEL1256 

SHELI257 

SHEL 1 258 

SHEL1259 

SHEL 1260 

SHEL 1 26 1 

SHEL 1 262 

SHELl 263 

SHELl 261 

SHELl  265 

SHEL1266 

SHEL1267 

SHEL 1 268 

SHEL 1 269 

SHEL  1  270 

SHEL1271 

SHEL1272 

SHELI273 

SHEL  1  271 

SHEL 1275 

SHEL1276 

SHEL  1277 

SHEL1278 

SHEL1279 

SHEL  1280 

SHEL 128  1 

SHEL1282 

SHEL 1 283 

SHELI281 

SHELl 285 

SHEL1286 

SHEL1287 

SHEL 1 288 

SHELl 289 

SHEL1290 

SHELl 291 

SHEL1292 

SHEL  1293 

SMELI291 

SHEL1295 

SHELI2V6 

SHEL1297 

SHEL1298 

SHELl 2V9 

177 


|0B 
10? 
I  10 
1  1  I 
I  12 
1  I  3 
1  14 
1  15 
I  16 
I  I  7 
I  16 
1  19 
I  20 
I  21 
122 
123 
124 
I  25 
126 
127 
128 
129 
130 
131 
I  32 
133 
I  3 'I 
I  35 
136 
1  37 
I  38 
139 
I  40 
I  HI 
1  42 
143 
144 

I  4S 
114 
147 
MB 
1  49 
150 
151 
152 
153 
154 
155 
156 
157 
150 
15? 
I  60 
161 


Al  ' 

A2  ' 

A3  ' 

Bl  « 

B2  = 

B3  > 

Ul  > 

U2  = 

U3  = 

W  1   > 

W2  ' 

W3  = 

B  ID 

B20 

B3D 

A  I  D 

A2D 

A3D 

C21 

C22 

C31 

C22 

C31 

C32 

C5I 

C52 

C61 

C62 

C81 

C82 

C91 

C92 


A<  I  > 

AIJ) 

A  (  K  I 

Bill 

Bl  J  I 

B(K  ) 

Ul  I  ) 

U<  J) 

UIKI 

I  .-Ul 

I  .-02 

1  .-U3 

=  B  I  + 

■  B2  ♦ 

=  H3  4 

■■    Al  ♦ 

«  A2  ♦ 

:   A3   ♦ 


Bl 
B2 
B3 
Al 
A2 
A3 


B  I  -B3»U J 

-B lD*B2«W2+B3»U3 

A  1 -A3»U3 

-B I D+B2«W2+R3«U3 

A  1 -A3«U3 

-A 1D*A2«W2+A3»U3 

B3»W3-B2 

B2D-B3»w3-Bl »U1 

A3»W3-A2 

A2D-A3»w3-A I »U 1 

B3-B2D-B2»U2 

B 1D-B3+B1 »W1 

A3-A2D-a2«U2 

A 10-A3+A I «Wl 
PI  =  PT (  1  )  »PTF 
P2  =  PT ( J)  «PTF 
P3  =  PT ( K  )  »PTF 
U37  »  7.«U3 
W27  *  7 . »w2 
W24  »  4.»W2 
U34  "  M.»u3 


■TX  (K  ) 
TX(K  ) 


TX  (  K  ) 

TX ( J  )  • 

TY  (  K  ) 

TX  (  J  )• 

TYIK  ) 

TY ( JI-TY (K  ) 

TX  (K  ) 

TX  1  1  I  -T  X (K  ) 

TY(K  I 

TY (  I  1-TY (K  ) 

TX  t  J  ) 

TX(  I  ) 

TY(  J| 

TY(  1  ) 


CI  > 

C2  = 
C3  ' 
CM  > 
C5  « 
C6  ■■ 
TXS 
TYS 


51.»w27 

S4.+U37 

15.+W24 

39.+U37 

39.+W27 

15.+U3M 
'  TX IJ  I  *Tx  IK  1 
'  TYIJl+TYlK) 


FTIII-2)  =  6. • I  I 90.+U37  +  W27 I »p I ♦ ( 36. +U37  +  W24 ) «P2+ < 36. +U34+W27 

FTIII-ll  x  ( C 1 »B2-C2«B3+ 7. • TXS  )  »P I  ♦  ( C 3»B2-C 4 «B 3+4 . • T XS ♦ 
1  3.»TXlK))»P2  ♦  I C5»H2-C6«B3  +  4.  »T XS  +  3.  »TX ( J  )  )  »P3 

FT(II)  «  (Ct»A2-C2»A3*7.»TYSl»PI  ♦  <C3«A2-C4«A3+4  .  •  T  Y  5  + 
1  3.»TY(K))»P2  ♦  1 C5«A2-C6« A3  +  4. • T YS  +  3. »T Y ( J  I  )  »P3 

FT1K+9)   =  I  7. • I P I *P2 ) +4.«P3 1 »HT I K I 

XMO(I)   =   (XM(ltI)+XM(2,Il+XM(3,IM/3. 


SHEL 
SHLL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHLL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
5HEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
5HEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
I  «P3  1SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHLL 


1  300 
I  3U  1 
1  302 
1  303 
1  304 
1  305 
1  306 
1  307 
1  3U8 
1  309 
1310 
1311 
1312 
13  13 
1314 
1315 
1316 
1317 
13  18 
1319 
1320 
1321 
1322 
1323 
1324 
1  325 
1  326 
1  327 
1  32B 
1  329 
1330 
1331 
1  332 
1  333 
1334 
1  335 
1336 
I  337 
1  338 
1  339 
1  340 
1  34  1 
1  3 'I  2 
1  343 
1  344 
1  3H5 
1346 
1  347 
1  348 
1  34? 
1  350 
1  3b) 
1  3b2 
1  353 


178 


162 
163 
164 
165 
I  66 
167 
168 
16V 
170 
171 

172 

173 

174 

175 

176 

177 

178 

17? 

180 

1DI 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

21  I 

212 

21  3 

214 

215 


200 
300 


DO 
L  = 
Ql  1  » 
Q22  = 
(333  * 
Ql  2  « 
Q23  =■ 
Q31  » 
Q2333 
Q3133 

PU- 
PIL 
PIL 
PIL 
PIL 
PIL 
PIL 
PIL 
PIL  ' 
PIL 
PIL 
PIL 
PILO 
PILO 
PILO 
PILO 
PILO 
PI  LO 
PILO 
PILO 
PILO 
PILO 
PILO 
P  I  LO 
PIN+I 8 
P  IN+  1  8 
P  I  N  ♦  I  8 
P  I  N*  I  8 
00  MOO 


DO 
I  1 
KK 
P3 


200        N     =     1 
6» 1  1 -1  )     + 
»     Ql N,  I  ) 
=    QIN, J) 
*     QIN.K  ) 
«     QIN,  I  +3 
=•    UIN.J  +  3 
'     QIN.KO 
■■     Q23-Q 
Q3I-Q 
I  1-2) 
I  1-1  ) 
I  1         I 
JJ-2) 
JJ-1  ) 
JJ        I 
KK-2  I 
KK-1  ) 
KK         I 
I  *9      I 
J  +  9      ) 
K  +  9      ) 
I  1-2) 
I  1-1  ) 
I  I         I 
JJ-2) 
JJ-1  ) 
JJ        ) 
KK-2) 
KK-I  )      : 
KK         )     i 
1+9     ) 
J*9     )     = 
K*9      )     = 

I    1-2   )       : 

KK-1   )      : 
KK  I 

K*V      )      : 
J 

L 


340 
=  L 
=    L 


) 

) 

33 

33 

=    6.  •  I -Q 1  1  *W2«Q33*U3»Q2333 ) 

=    C21»U23*C22»Q33-B3D«Q12+B2D«Q3I 

=    C31»Q23*C32»Q33-A3D»Q12*A2D»Q3  1 

=     6.  •  I Q22*W3«Q2  3  33 ) 

=     C51  •Q2333  +  B3D»C|22 

=  C61»Q2333*A3D«Q22 

=  6. • I  I  .  *U2 I *Q33 

=  C8  1  »Q33 

=  C9 1 »Q33 

=»  0. 

=  HT I  J ) »Q33 

=  HT IK ) »Q2333 

=  6.» (Ql  I *U3«Q3133  ) 

=  C21 *Q31 33-B3D»Ql 1 

=  C31  »Q3l 33-A3D»Ql  1 

=  6.» I -Q22+U1»Q33*W3»Q3133) 

*  C51"Q3I+CS2»Q33*B3D»QI2-B1D«Q23 
=  C6I»Q3I*C62*Q33*A3D»Q12-A1D«Q23 
=  6.« I  1  .*Wl  ) «Q33 
=  C82»Q33 
=  C92»Q33 
x  HT I  I  I  »u33 
=  0. 

=  HT I K ) »Q31 33 
=  2.» IQ1  1  *U3»Q I 2*W2»Q31  ) 
=  (<BlD-B2D)«Q33+C82»Q23*C8l»Q3|)/3. 

*  I (A1D-A2D)»Q33+C92»Q23*C91»Q31 )/3. 
=  HT  IK  I  •Q12/3. 
,NDF 
,3 


18 

P( KK  , J  ) 
GIKK  )  *  0. 
DO  3H0   N  = 
1  =  IPERM(N) 
JJ  =  II  +3 
PI  =  PI  I  I  ,  J  ) 
P2  =  P I JJ,J) 
SUM  *  PI 
Gl  =  SUM 
G2  *  SUM 
G3  =  SUM 
IF  (FLAT) 


I  .3 


P2 
PI 
P2 
P3 
GO 


♦  P3 


TO  320 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 

SHEL 
SHEL 

SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


1351 
I  355 
1  356 
1357 
1  358 
1  359 
1360 
1361 
1  362 
1  363 

1  364 
1365 
1  366 
1  367 
1  J68 
1  369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1  377 
1378 
1379 
I  380 
1381 
1382 
1  383 
I  38H 
1385 
1386 
1387 
1  388 
1389 
1390 
1391 
1392 
1393 
1  394 
I  395 
1396 
1397 
1398 
1399 
1400 
1  '(0  1 
1402 
1403 
1404 
I  40b 
1406 
1  407 


179 


216 
21  7 
218 
2  1  9 
220 
221 
222 
223 
224 
22b 
226 
227 
228 
22? 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 


320 


3H0 


360 


380 


G  I  -     Gl  ♦  Q  B  (  N  *  I  I  •  P  1  ♦  (JB(N,6)«P2 
G2  =  G2  ♦  QB(Ni6)«PI  +  UB(N,2)«P2 
G3  =  G3  ♦  QR(Ni5)*PI  +  UU(N,4)»P2 
G  (  I  I  )  '     6  1 
G ( JJ  )  =  G2 
GIKKI  =  G3  ♦  G<KK) 
II  =  II  +6 

FT(J)  =  FTU)  "  X  M  <  N  ,  L  )  •  G  I  - 
IF  (NOSI    GO  TO  MOO 
I  ,  |9,3 


(JfHN,5  )  »P3 
QBIN.4  I «P3 
UD  I  N  ,  3 ) »P3 


XM (  I  ,L  )  »G2  -  XMO( L ) »&3 


DO 
Gl 
G2 
G3 


360  N  : 

=  G  (  N  I 

=  Gl  N+ 1  > 

*  G  I  N*2 I 

=  CM  I  I «G1 

=  CM  I 2«G| 

=  CHI 3»G| 

I  =  I  ,  J 


GIN) 

G  (  N  ♦  1  ) 

G  I  N  +  2  ) 

00  390 

X  =  0. 

DO  380   N  =  l,2| 

X  =  X  ♦  GIN) «P IN,  I  ) 

X  =  X»FAC 


CM I2»G2 
CM22»G2 
CM23«G2 


CM1 3»G3 
CM23»G3 
CM33»G3 


ST  I  I  ,  J)  = 
370  ST (J,  I  > 
'100  CONTINUE 
1000  RETUHN 

END 


SHE  l  I  ''0  8 
SHEL  1  109 
SHEL 1110 
SHEL  Ml  I 
SHELl 4 1 2 
SHELlHI 3 
SHELl 'IM 
SHELl'Hb 

SHEL  I  'II  A 


SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 
SHEL 


1418 

I  Ml  9 
1420 
112  I 
1122 
142J 
1124 
1425 
1426 
1427 
I  428 
1429 
1430 
1431 
1432 
1433 


180 


l 

2 
3 

H 

5 
6 
7 
8 
9 
10 
1  1 
12 
13 
I  M 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
2M 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3M 
35 
36 
37 
38 
39 
HO 
M  1 
M2 
M3 
HH 
H5 
M6 
M7 
H8 
M9 
50 
5  1 
52 
53 


SUBROUTINE  cSTST«  I M I 

this  subr0utine  computes  the  in-plane  stresses  In  a  linear  strain 
triangle  (lst)  with  6 ,  s  ok  4  nodal  points,  or  in  a  constant 
stra in  tr 1  angle  ( cst  ) 


1 NPUTS 


M . A ,B  ,C 
U(  I  )  , V (  I  1 


AS  IN  SL5T. 


1  =  1. ..3  +  M     IN-PLANE  NODAL  DISPLACEMENT  COMPONENTS! 
MIDPOINT  VALUES  U ( I ) , V < 1 ) , I = H . . . 3 +M ,   IF  ANY,  ARE 
DEVIATIONS  FROM  LINEARITY 


THE 


0UTPUT5 


SMTII.J)     I  =  1  .  . . 3  ,  J»1...3     MEMBRANE  STRESS  COMPONENTS   SIG-XX 
<J=l),  5IG-YY   (J=2),  AND  SlG-XY  (J*3)  AT  THE  CORNERS 
1  =  1. ..3,  ASSOCIATED  WITH  THE  INPUT  DISPLACEMENTS 


COMMON  /TRIARg/  A < 3 >  ,  B < 3  I  ,  H < 3  )  ,  HP T < 3  I  ,  C ( 3  ,  3  )  ,  SM T 1 3  ,  3  )  , 
1  BMT(3,3),U(6),V(6),W(3),RX(3),RY(3),RM(3),ST(I2,12) 
DIMENSION   EXX(3),EYY(3),GXY(3),EPS(3,3),IPERM(3) 
EQUIVALENCE  <EXX,EPS>,  ( E Y Y  ,  EPS ( M  )  )  ,  (GXY,EPS(7I) 
DATA    I  PERM  /2  ,  3  ,  I / 
AREA  =  A ( 3 )  »B ( 2 ) -A ( 2  )  »B ( 3  ) 

Ell  -    (B I  1  I »U<  I  )  +  B < 2 ) »U ( 2 > +B ( 3  )  »U< 3  I  ) /AREA 
E22  "    ( A (  1  I »v<  I  I +A ( 2  I »V ( 2  )  +A I  3  I  »V ( 3  )  )  /AREA 

G12  «    <A(I>»U<I)*A(2I»U(2)*A<3)»U(3)+BU)*V(1)«-B<2)«V(2) 
1  +  B( 3  )  « V  I  3 )  f/AREA 


DO  1  50 
EXX ( I ) 

E YY (  I  ) 

GXY (  I  I 


TO  25C 


1  =  1,3 
»  El  1 
=  E22 

150  GXY (  I  I  =  G  1  2 

IF ( M.LE .0  )  GO 

DO  200  I  =  I  ,M 

X  =  S.0»U(  1 +3  )  /AREA 

Y  =  4.0»V(  I *3  )  /AREA 

J  -  IPERM(  I  ) 

K  =  IPERM( J) 

EXX ( J ) 

EXX ( K  ) 

EYY ( J  ) 

E YY (K  ) 

GX Y  <  J  ) 
200  GXY ( K  I 
250  DO  300 

00  300 
3  0  0  S  M  T (  I  , J ) 

RETURN 

END 


=  EXXIJ ) 
=  EXX (K  I 
=  EYY( J) 

=  EVYIK  » 
=  GXY ( J) 

=  GXY(K  » 
1  =  1,3 
J=l  ,3 

Clj.l  )  •  E  P  S  <  I  ,1  1 ♦ C (J • 2 ) • E P S I  I  ,Z)*C(J,3)»EPS(  I  ,3) 


B  <  K  >  »X 
0 (J  I  • X 
A(K  I  *Y 
A ( J)  »Y 
A ( K  I  *X 
A  ( J  I  »X 


B  (  K  )  •  Y 
B  (  J  >  •  Y 


181 


i 

2 

3 

H 

5 

6 

7 

8 

9 

10 

1  I 

1  2 

13 

I  H 

15 

1  6 

1  7 

I  8 

I  9 

20 

21 

22 

23 

2H 

25 

26 

27 

2B 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

HO 

HI 

H2 

'13 

HM 

MS 

H6 

M7 

H8 

H9 

50 

51 

52 

53 


SUBROUTINE  LCTMOM  I M I 

THIS  SUBROUTINE  COMPUTES  THE  BENDING  MOMENT  FIELD   IN  A  LCCT 
PLATE  BENDING  ELEMENT  WITH  6,  S,  4  OR  3  NODAL  POINTS 


M  ,  A  ,  B  ,  C  ,  H 
Will 
Rx (  I  I  /RY (  I  ) 
RM  (  I  ) 


AS   IN  SLCCT. 

1=1. ..3     CORNER  Z-D I SPLACLMENT5 

I  »  I  ...  3     CORNER  X/Y  ROTATIONS 

1  =  1. ..3     I  F  (  M  •  G  T  .  0  )  ,  MIDPOINT  SIDE  ROTATIONS 

PROM  NORMAL  SLOPE  LINEARITY) 


(DEVIATIONS 


OUTPUTS 


QMT(ItJ)  I  '  I  •  •  .  3  ,  Jxl...3  BENDING  MOMENT  COMPONENTS  MOM-XX 
(J=l),  MOM-YY  (J=2I,  AND  MOM-XY  (J«3)  AT  THE  CORNERS 
1  =  1.  ..3    ASSOCIATED  WITH  THE   INPUT  DISPLACEMENTS 

COMMON  /TRIARg/  A ( 3  )  ,  R ( 3  )  ,  HM T (  3  )  ,  H  I  3  I  ,  C ( 3  ,  3  )  ,  SMT ( 3  ,  3  )  , 
I  BMT(3,3),FT(l2),W(3),RX(3),RYl3),RM(3),ST(12,l2) 
DIMENSION  U(3).Q(3,6),CV(3),  IPERM(3),TX(3),TY(3),RH(3) 
EQUIVALENCE  (QiST) 
DATA    IPERM  / 2  •  3  ,  1 / 
AREA  =  A ( 3  1  »B ( 2  ) -A ( 2 ) »B ( 3 ) 
DO  1 50  1=1,3 
J  =  1  PERM (  I  ) 
X  »  A  (  I  I  ••2  +  B  <  I  )  »»2 
U(I)  =  -  (  A  I  I  )  «A  (  j  )  +  B  I  1  I  »B  (  J  )  )  /X 
X  *  S«RT(X) 
Y  =  2.«AREA/X 


2.»AREA/X 
l  )  =  0.0 
IF (  I .LE.H)  RH (  I  )  • 
TX(I)   =    Y» A (  I  )  /X 
TY(I)   =  -Y»B( I )/X 
A  1   =  A  (  I  )  /AREA 
A2  =  A  ( J  I  /AREA 


2. * Y»RM(  I  I 


A2  =  A  ( J  I /AREA 
B 1   =  B ( I > /AREA 
B2  =  B ( Jl/AREA 
Q  I  1  ,  I  )  =  B 1 »B  1 
Q(  2 ,  I  )  *  A  1 • A  1 
Q  I  3  ,  1  )  =  2«  •  A  1 • B  I 
Q(  I  ,  I +3  )  «  2.  •  B  I  •  I 
Q(2  ,  I  *3  )  =  2.  •  A  1  »A2 
150  (3(3,1*3)  =  2.»<A1«B2*A2»I31I 
DO  300  1=1,3 
J  =  IPERM(  I  ) 
K  =  I  PERM ( J  I 
FAC  =  H(  1  )  »«3/  12.0 
A2  =  A ( J  ) 
A3  =  A ( K 1 


\2 
>A2 


182 


51 
55 
56 
57 
56 
59 
60 
61 
62 
63 
61 
65 
66 
67 
68 
69 
70 
71 
72 
73 
71 
75 
76 
77 
78 
79 
80 
81 
82 
83 
81 
8b 
86 
87 
88 
89 
90 
91 
92 
93 
91 
95 


82 
B3 
V2 
UJ 
W2 
WJ 
C21 
C22 
C31 
C32 
C52 
C62 
C82 
C92 
C51 
C6  I 
C8I 
C9I 
DO  ' 
Ql  1 
Q22 
Q33 
Ql  2 
Q23 
031 
Ql 
Q2 
Q3 
Ql 
Q5 
250  CV( 

1 

2 

3 

1 

5 

6 
DO 
BMT 
CON 
RET 
ENO 


B<  J) 
BtK  1 
U(J) 

U  (  K  I 
1  .0 
1  .0 

■■     -12 
9 

'  -(  2 

:     A 

B 

A 

B 

■■  A 

1 

=     H 

i    -H 

-1 

L  = 

QIL 

QIL 

QIL 

QIL 

QIL 

QIL 

Q22 

Q22 

Q33 

Q23 

Q23 


-  U2 

-  U3 

•  0  +  W2  > 
2»  W2 

•  0  +  W2  • 
2»  W2 
2-  B3* 
2-  A3* 
2*  U2- 
2»  U2- 

•  0»  B3 


A3 
B2 
A2 


250 


L  )  = 


300 


+  ( 


300  J; 
I  I  ,  Jl 
T  INUE 
URN 


•  0» 
.0* 
.0» 
1  ,3 
.1  ) 
,J> 
,KI 
i  1*3) 
,J  +  3) 
,K  +  3  ) 

-  Q33 

-  Q23 

-  Q23 
♦  Q  1 

-  Ql 
(-6..Q 
I 6.«q2 
IC21.Q 
IC3I  .Q 
<C5l»Q 
(C81 »Q 

Q5»RH 
1  .3 
x  -FAC 


•  02 

-  B3« 

•  A2  -  I  2 

-  A3*  U3 
W3 

W3 
B3 
A3 

-  C52 

-  C62 

-  C82 

-  CV2 


I  2.0  +  U3 ) • 

U3 

0  +  U3  )  • 


U3 


A3 


T  X  (  K  ) 
TX  IK  ) 
TY  IK  ) 

T  Y  I  K  I 
TX  I  K  ) 
T  Y  I  K  ) 
TX  (J  ) 
TYIJ) 


TXIJ) 
TX(J) 
TY(J) 
TY  (Jl 


I  1+3. ♦ I  <U3-W2f«Ql+IU3+w2)»Q23l  )»W|  I  1 

2*3. •W3»QH I »W(J 1  +  I  6. »Q33  +  3. »U2«Q5  )  »W  I  K  ) 

|+C22»Q23*1.»(B2»Q31-B3»Q12)  )  »RX  I  I  ) 

I+C32»Q23*1.»(A2»Q3l-A3»Ql2>  I  «RY  I  1  ) 

22  +  Cb2»Q3  I  »RX (J  )  +  I C 6  I • Q22 *C 62» Q3 ) »R Y (J  ) 

33  +  C82»Q2  I  »RX I K 1  ♦  I  C 9  1  • Q 3 3 *C 9 2 • Q 2 ) • R Y I K ) 

I  J )  ♦  yM»RH  I  K  )  1 /2. 

•IC(J,|)»CV(11+CIJ,2)»CVI2  1*C(J,3)»CV(3)1 
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i 

2 
3 
M 
5 
6 
7 
8 
9 
10 
I  1 
12 
13 
M 
15 
16 
1  7 
18 
19 
20 
21 
22 
23 
2M 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3H 
35 
36 
37 
38 
3  9 
MO 
Ml 
H2 
M3 
MM 
M5 
M6 
M7 


SUBROUTINE  STrES5(STR,0,D,nEQB,LB,Ll,NEQ,NBLOCKI 

COMPUTATION  OF  STATIC  ELEMENT  STRESSES 

DIMENSION  D(NF.UiLB)  iB I NEQB  ,LL  )  iSTRt  MiLL  I 

COMMON  /JUNK/    LT.LH 

DO  SO   L= 1  .LL 
DO  50    I  *  I  ,  M 
50  STR(  I  ,L  )  =  1  .0 

NT= (LL-1  )  /LB  +1 
LH  =  0 
REWIND  3 

DO  1000  I  I  =  1  ,NT 

LT  «LH+I 
LLT=1-LT 
LH  =  LT-»LB-| 
IF(LH.GT.LL»  LH-LL 

MOVE  DISPLACEMENTS  INTO  CORE  FOR  LB  LOAD  CONDITIONS 

REWIND  2 
NU«NEQB«NBL0CK 
DO  200  NN*1  .NBLOCK 
READ  ( 2  I  B 
N=NE«B 

IF  (NN.tQ.ll  N"NEQ-N«*NLQB 
NQ=NU-NEQB 
DO  200  J= 1  ,N 
I  =N<3  +  J 

DO  200  L'LT.LH 
K=L+LLT 
200  D(  I  ,  K  |=B( JiLl 
LK-LH-LT+ 1 

CALCULATE  STRfSSES  FOR  ALL  ELEMENTS  FOR  LB  LOAD  CONDITIONS 


REWIND  10 
READ    I  10)  NUtlPL 
CALL  SHL   (NUMPL) 
1000  CONTINUE 

RETURN 
END 


S  T  R  E  5   2 
STRES   3 


S  T  R  f.  5   9 


ST  RE 
STRE 
STRE 
STRE 
STRE 
STRE 
SIRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRE 
STRe 
STRe 


1  1 
1  2 
1  3 
I  M 
I  5 
I  6 
I  7 
I  8 
19 
20 
21 
22 
23 
2M 
26 
27 
28 
29 
30 
31 
32 
33 
3M 
35 
36 
37 
38 
39 
MO 


S  T  R  E  S  1  16 
STHES1  I  7 
STRESI  18 
STRES123 
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i 

2 

3 

M 

5 

6 

7 

fl 

9 

10 

1  I 

I  2 

13 

14 

15 

16 

17 

18 

IV 

20 

21 

22 

23 

24 

25 

26 


SUBROUTINE  STrSC(STK,D,NLQ,NTAG) 
DIMENSION  STR ( H, 1  >  ,D(NEQ , 1  I 

COMMON  /EM/         NStNO  tLMl  2'4  I  ,B(  I '2  ,24  1  ,  T  I  (  1  2  , 1  ) 

COMMON  /JUNK/  LT  ,LH  ,  L  ,SG  I  20  )  ,  TH 

1  F  ( NT AG.EQ.O )  GO  TO  600 

LL=L-l_T  +  l 

DO  300    1  =  1  , N  S 

SGI  1  1=0.0 

DO  300   J  =  1  ,  1 
300  SG(l)=SGU)+Tl(l,J)»STR(J,L) 

DO  500   J>l  ,Nd 

JJ=LM( J  ) 

IF ( JJ.EQ.O  )  GO  TO  500 

DO  400   1  =  1  ,NS 
4(J0  SG(  I  I  =SG(  I  l+B  (  I  ,  J  I  »D(  JJ.LL) 
500  CONtlNUE 

GO  TO  900 

800  READ  (10)  NO ,N5 , (LM(  I  I  , 1  =  1  ,ND I  , (  (B<  I  ,  J  I  ,  I  =  1  ,NS  )  ,  J«  1  ,ND  1  , 
I  (<TI(I,J),l=l.NS),J=l,1),  TH 

900  RETURN 
END 
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2 

3 

M 

5 

6 

7 

6 

9 

10 

I  I 

I  2 

13 

I  M 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2b 

27 

28 

29 

30 

31 

3  2 

33 

34 

35 

36 

37 

38 

39 

MO 

Ml 

M2 

H3 

MM 

M5 

M6 

M7 

M8 

M9 

50 

51 

52 

53 


7on 


705 


N  I  ,N3  ,NEQ 
LT.LHiL ,5IG( 2U ) , 


subroutine:  shl  inumEI 

COMMON  All) 

COMMON/ ELPAR/ 

COMMON  /JUNK/ 

I WARN=0 

LLT=LT 

LLH=LH 

PRINT  2U02 

REWIND  1M 

DO  800   MM=  I  ,IJUME 

CALL  5TRSC  I  A (N|  )  ,A (N3  I  ,NEW  ,0 ) 

DO  BOO  L=LLT,LLH 

CALL  STRSC  I  A < Nl  )  ,  A  I  NJ  I  ,NEU  ,  I  ) 

TH=1  .O/TH 

TH=TH«TH 

DO  700   I=M,6 

SIGI  I  )=-6.0»SlG<  I  I »TH 

DO  705   1=7,8 

SIGI  I  )    =SIG(  J-6  1-SIGI  1-3  I 

SIGI  I ♦ J  >  =S I G I  1-6  1+SIGI  1-3) 

CONT I NUt 

SIGI  9)  *  SIGI 3 (+SIGI 6  ) 

SIGI12I  =  SIG( 3)-S|G<  6  ) 

SI GA«| S I G ( 7 ) +5 IG I  8  )  )/2. 

S  I  G  (  13  1  = 


TH 


I  b  (  /  J  +S lb ( 8  I  >  /2  • 

=  S  1GA+ (  I  (SIGI7)-S1G(8I  )/2«  (••2  +  SIG(9)»»2)»»0.5 
*SIGA-(  I  (SIG(7)-SIGI8)  )/2.  )»»2  +  SIG(9)»»2)»»0.5 
J,=0.5«ATAN((2.»SIG(9))/(SIG(7)-SIG(8))) 
SIGB=(S|G(  10) +SIGI  I  1  )  )  /2 

SIGI  16)=SIGB+(  I  (SIGI  10  I -S I G I  I  1  I  1/2.  )»»2+SlGI  12)«»2)»«0.5 
SIGI  I 7)=SIGB-(  I  (SIGI  10  1-5 IG I  1  1  I  )/2.  (••2  +  SIGI  1  2  I  *«2  I  ••0-5 
SIGI  18)=0.5*ATAN(  I 2»51 G<  12)  )/(SIG(  I0I-S1GI  I  1  )  )  ) 
WRITE!  J 1)  MM,(SIG(II,I=7,9),(SIG(I),I  =  13,I5), 
IISIGI1), 1  =  10,  l2»,(SI6<II,  1  =  16, 18) 
PRINT  3002,  MM.  ISIGI  I  )  , I  =  1  , 12 ) 
3  CONTINUE 
REWIND  IM 
PRINT  2003 
DO  900  J=l  ,NUllE 

REA0I1M)  MM,  IslGII),  1=7, 9),  (S1GIII,  1  =  13,15), 
1ISIGII),  1  =  10,  l2|,(SIG(I),  1*16,  18) 
VMU  =  SQRT(0.5»(SIG(  13  )»*2*SIG<  IM)»»2*I5IGI  I3I-51GI  IM)  I  «»2  )  ) 
VML=SQRTI0.5»(5IG<  1 6  1  • • 2  +  S 1 G  I  17)**2*ISIG(  161-SlGI  17)  )*»2)   I 
IF  I VMU.GT. 36000.0 )   1WARN=1 


900 


C 

2003 


IF  I VMU.GT. 36000. 0  )   1WARN=1 
IF  I VML'GT .36000.0 )  1WARN=1 
PRINT  3003,MM,(S1G(1),I=7,9),(5IG(I),I 
1ISIGI  I  ),  1  =  10,  12),  (SIGI  I  )  ,1  =  16,18)  ,VML 
CONT INUE 
IF  I  I  WARN. EQ« 1  )  PRINT  MOOO 

RETURN 


13,15),  VMU 


FORMATI   I  H 1  i  •  PRINCIPAL  SHELL  ELEMENT  S TRE SSe S  •  ,  / /  ,  •  ELEMENT 
I  COMBINED  STRESS  C OMPONE N T 5  •  ,  5 X  ,  •  PR  I  NC  1  P AL  STRESS  COMPONENTS ',  5X  , 
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54  2PRINCIPAL  D  I ReCT 1  ON  •  , 8X  ,  • VON  M1SES',/,'  NUMBER '  ,  I  I  X  ,  •  X X  TY 

55  3  XT'  ,  I3X  i  'SI  '  •  10X,  '52'  ,  18X,  'THETA'  ,  I  7X,  'STRESS'  ,/ I 

56  3003   FORMATfIS,HX,'(  +  )',3FlO.|,bX,no.lt2X,F10.l,MX,F8.'4,14x,F9.l,/, 

57  19X,'(-)',3FI0.1,5X,F10.1,2X,F10.1,IHX,F8.M,MX,F9.l) 

58  2002  FORMAT  (24HI  SHELL  ELEMENT  STRESSES// 

59  I    8M  ELEMENT.MX,  26HMEMBRANE  STRESS  COMPONEN T S  ,  5 X  , 

60  2  25HBENDING  STRESS  COMPONENT  5 , 9X , 26HC0MB 1 NEO  STRESS  COMPONENTS, 

61  3/  8H   NUMBER , 7X ,3H5XX  ,  7X , 3HSYY , 7X ,3H5XY , 7X .3HMXX ,7X ,3HMYY ,7X , 

62  M   3HMXY,6X,29H  XX           YY           XY,/) 

63  3002  FORMAT  (  I  8  ,  6F  1  0  .  1  ,  2 X  ,  3H  I  ♦  )  ,  3F I  0  .  I  ,  /  ,  68 X  ,  2X  ,  3h ( -  >  ,  3F 1 0  .  1  ) 

6H  HOOO   FORMAT!///,  •  .  •  •  PLATE  STRESS  WARNING-SOME  ELEMENTS  Are  STRESSED 

65  !♦,/,  '         ABOVE  36000  PS1.  SEE  COLUMN  OF  VON  MISES  STRESS 

66  2',/,  '          COMPONENTS.') 

67  END 
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2 

C 

3 

c 

<\ 

c 

5 

c 

6 

c 

7 

c 

e 

c 

9 

c 

10 

c 

1 1 

c 

12 

c 

13 

c 

1  M 

IS 

16 

17 

18 

1  9 

20 

21 

22 

23 

2H 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3H 

7100 

35 

36 

7101 

37 

38 

C 

39 

C 

HO 

C 

Ml 

C 

H2 

H3 

HM 

H5 

c 

M6 

c 

47 

c 

H8 

H9 

50 

51 

52 

53 

SUBROUTINE  BUCKLE (NBM.E  ,G,FAC ) 

BUCKLE  COMPUTES  A  DEFLECTION  CURVE  BY  THE  UNIT  LOAD  METHOD 

MOMENTS  ARE  INCREASED  BY  AXIAL  FORCES.    DEFLECTION  CALCULATIONS 


ARE 


CURVE  CONVERGES  OR  DIVERGES. 
USED.    NINCR  IS  THE  NUMBER  OF 
DIVIDED  INTO  TO  APPROXIMATE  THE 
IN  A  PARAMETER  STATEMENT  IN  THE 


ITERATED  TO  SEE  IF  THE  DEFLECTION 

NITER  IS  THE  NUMBER  OF   ITERATIONS 

INCREMENTS  THE  BUCKLING  MEMBER  IS 

UNIT  LOAD  INTEGRAL.   NINCR  OCCURS 

DRIVER  PROGRAM 

NBM  IS  THE  NUMBER  OF  BUCKLING  MEMBERS 

NEPI.NEP2  ARE  NODAL  NUMBERS  AT  ENDS  OF  A  BUCKLING  MEMBER 

NMI.NM2  ARE  BEAM  MEMBERS  CONTAINING  NEPUNEP2  RESPECTIVELY 

BLEN  IS  THE  LENGTH  OF  THE  BUCKLING  MEMBER 

PARAMETER  N  I  T E" " 25  ,  N I NC R = I  2 
REAL  1  X  ,  I  Y,  IZ,L 

DIMENSION  YY(NlNcR)  ,ZZ (NINCR  )  iRMY(NINCR)  ,RMZ(NINCR>  iUM(NINCRiNINCR 
U,YD(NlTERl,ZD<NlTER>tYST0RE<NITER),ZST0RE(NlTER)iFF(6) 
COMMON/BUCK L/|Y(  100  I  ,IZ(  100)  ,X(  100)  ,Y(  100)  ,Z(  100)  ,JJ(  100)  ,JK(  100)  , 

1L(I00I,WY(|00).WZ(I00),1NDI(5),IND2(5),URMY(5,N1NCR),URMZ(5,NINCR) 
2,N|l(51,Nl215).F(IOO),R(IOO,9l,AX(IOO),IX(100),WX(100)iYSTRS(100l 

COMMON'S 0LN/0j1600),AMR<I2),JAK<I2I,TITLE<2U) 
DIMENSION  SM (  1 2  ,  1 2  I  tSMR (  1 2  i  I  2  ) 
PI=3. I H|592654 

00  7000  JI =1 ,nBM 

READI5.7702)  NEP 1 , NEP2 i NM 1 , NM2 
DELX«X(NEP2  )-X INEP1  > 

DEL Y*Y (NEF2 )-Y ( NEP 1 ) 

DELZ*Z(NEP2(-Z  <NeP1  » 

BLENxS(jRT(DELX«DELX+DELY»DELY+DELZ»DELZ) 

NI  1  ( JI  )=NMl 

NI  2IJI  ) =NM2 

IF  ( NEP I  .NE  •  JJ ( NM 1  )  .  AND.NEPl  .NE  •  JK ( NM1  )  IGO  TO  7  100 

GO  TO  7  101 

WRI TE(6,7700)  JI 

GO  TO  7000 

1  1=0 
JT1  =0 

INDICATE  WHICH  END  OF  THE  BEAM  MEMBER  IS  THE  END  OF  THE 
BUCKLING  MEMBEH 

IF  (  JJINMl  )  .ECJ.NEP  1)11  =  1 
IF  ( JK (NMl  )  .EQ.NEP1  )  JT  l»l 
I  =NM  1 

COMPUTE  MEMBER  STIFFNESS  MATRIX  FOR  MEMBER  I 

JI  =6»JJ(  I  )-5 

J2  =  6»JJ(  I  )-M 

J3  =  6»JJ(  I  )-3 

JH=6» JJ<  I  1-2 

J5  =  6» JJ (  I  )  -1 

J6  =  6« JJ(  I  ) 
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54 

55 
56 
57 
58 
59 
60 

6  I 
62 
63 
64 
65 
66 
67 
68 
69 
70 

7  J 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 


K 1*6»JK ( I )-5 
K2  =  6» JK ( I ) -4 
K3=6»JK (  1  )-3 
K4=6»JK ( I )-2 
KS  =  6»  JK  (  I  )  -  1 
K6«6» JK ( I ) 

GY= I 6.«F 1  I  )»E»I>(  I  1  > /  I  G»AX I  I  )  «L  I  I  )  »«2  ) 
GZ*(6.*F(I>*E«IZ(!)>/(G»AX(I)*LM)*«2) 
CF  Y  1  *  I  •  /"  I  |  .♦2.«Gr  ) 
CFZ  1  =  1  ./ I  I  .+2.»GZ > 
CFY2" (  1  .+GY/2  .  >«CFY  I 
CFZ2=<  1  .*GZ/2.  >»CFZ  1 
CF  Y3«(  1  .-GY ) »cFY 1 
CFZ3M  1  .-GZ  1»CFZ1 
SCMl*(E»AxlI))/L(I) 
SCM2*(  I  2 . • E •  I  Z I  I  )«CFZ1  l/Ll  I  )««3 
SCM3«(6.«E*IZ(  I  )  •  C  F  Z  I  )  /  L  I  I  )  •  •  2 
SCM4=<  1  2  .  *  E •  I  Y  •  I  )»CFY|  l/L(  I  I  »»3 
SCM5=(6.»E*IY(  I  I»CFY1  )  /LI  I  >  ••Z 
SCM6«(G«IX(  I  )  )/L(  1  1 
SCM7*IM.»E»1Y«I  I  •  C  F  Y  2  )  /  L  I  I  I 
SCM8*(2.»E»IY(  1  »»CFY3)/L(  I  ) 
SCM9*(4.»E»IZ(  1  )»CFZ2)/L(  I  ) 
SCMI0=(2.«E»IZ<  I  (•CFZ31/LI  I  ) 
SHI  I  ,  I  I=SCM1 
SM ( 7 , 7 l=5CMI 
SMI  1  ,7 ) =-SCMI 
SMI  2  ,2  )»5CM2 
SMI  8  ,8  )=SCM2 
SM(2,8)=-SCM2 
SM ( 2  ,6  l=5CM3 
SM I  2  ,  I  2  ) =SCM3 
SMI  6,8  I =-SCM3 
SMI  8  ,  I  2  )=-SCM3 
SM I  3 , 3 1 =  SCM4 
SM I  9 , 9 ) =  5CM4 
S  H  I  3  ,  9  )  *  -  S  C  M  4 
SM  I  3 ,5 ) =-SCM5 
SMI  3,  1  1  )=-SCM5 
SMI  4 ,4 ) =SCM6 
SMI  1  ,  |0)=-SCM6 
SM I  10  ,  10 ) =SCM6 
SM(5,5)=SCM7 
SM (  1  1  ,  1  1  )=SCM7 
SMI  5,  I  1  )*SCM8 
SM I  6 ,6  )  =SCM9 
5M I  1 2 ,  1 2  I  =SCM9 
SMI  9 ,  1  1  I =SCM5 
SM I  5 ,9  I =  5CM5 
SMI  6,  12  l=5CM10 
DO  204  11=2,12 
111=11-1 

DO  204  JJJ= 1  ,  I  1  1 
204  SM I  I  I  ,  JJJ)=SM ( JJJ ,11) 
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108 

1  09 

1  10 

t  1  1 

1  1  2 

1  13 

1  IS 

1  IS 

20 

1  16 

1  17 

C 

1  18 

C 

1  19 

C 

1  20 

C 

1  21 

122 

7020 

123 

1  24 

1  25 

126 

127 

7021 

128 

1  29 

7030 

1  30 

1  31 

1  32 

1  33 

7022 

131 

1  35 

7040 

1  36 

C 

137 

c 

1  38 

c 

1  39 

1  4C 

Ml 

c 

112 

c 

1S3 

c 

1  44 

c 

MS 

1  H6 

117 

1  18 

1  19 

ISO 

IS1 

IS2 

c 

153 

c 

151 

c 

I5S 

c 

156 

157 

158 

7210 

159 

1  60 

161 

DO  205  K= 1 ,1 
DO  20S  J=l  ,  I  2 

SMR(J,3»K-2)=SM(J,3»K-2)»R(  I  ,  1  >+5M(J,3»K-l  ) »R(  1  , S  (♦SM( J  ,3»K  I 
1  »R (  I  , 7  ) 

SMR(J,3»K-I  I*5M(J,3»K-2I »R  <  I  ,2l+SM(J,3»K-l  I  «R  (  1  ,S)*SM(J,3»K  ) 
I »R  <  I  ,8  ) 
SMR  U  ,  3»K  )=SM(J,3»K-2t«R(  I  ,3)+SM(J»3»K-|  )  »R  I  I  »6)*SM(ji3*K  >  »R  <  I  .9) 
S  CONTINUE 

IF ( JTI .EQ. 1 )G0  TO  7021 

FFIJI   IS  THE  ARRAY  OF  MEMBER  FORCES  IN  THE  MEMBER  COORDINATE  SYSTEM 
THEY  ACT  ON  A  NODE  1HAT  IS  AN  ENDPOINT  OF  A  BUCKLING  MEMBER 

DO  7C20  J= 1 ,6 

FF(J)=SMR(J,l)»DJtJl)+SMR(J,2)»DJ(J2)+SMR(J,3)»DJ(J3|+SMR(J(4)» 
1DJ(J4)+SMR(J,S>»DJ(JS)*5MR(J,6)»DJ(J6)+SMR(J,7»«DJ(KI1+SMR1J,81 
2«DJ(K2)+SMR(J,9»»DJ(K3)*SMR(J,I01»1)J(K4)*SMR(J,1|)»DJ(K&)  + 
3SMRIJ,  1  2  I  •DJ(K<>  I 

GO  TO  7022 

DO  7030  J  =  7 ,  I  2 

JM=J-6 

FF(JM1=SMR(J,  |  I»DJU1  )+SMR(J,2)»DJU2)*SMR(J,3l»DJ<J3)*SMRIJ,4)»DJ 
l(J4)+SMR(j,5)»DJ(j5)+SMR(J,6)»DJ(j61+SMRtJ,7)»DJ(Kl)+5MR(J,8)«DJ(K 
22l+SMR(J,9)«DjlK3)+SMR(J,IO)«DJIK4»+SMR(J,ll)»DJ(K5)+SMR(J,l2)»DJ( 
3K6  ) 

CONT I NUE 

DO  7040  IM* I ,6 

FF  t  I  M  )  =FF (  IM  I  »FAC 

COMPUTE  MINIMUM  MOMENT  OF  INERTIA 

E I Y=AMINI  I  I  Y(NMI  1  .  I  YINM2  )  ) 
E1Z  =  AMIN1  (  IZINM1  I  ,  1/INM2  I  1 

COMPUTE  IS  PERCENT  OF  THE  EULER  CRITICAL  LOAD  ABOUT  THE  WEAKEST 
AXIS,  FOR  SIMPLE  SUPPORTS 

PEUY«PI»Pi»E»ElY/BLEN««2 

PEUZ=PI«Pl»E»ElZ/BLEN»»2 

PEULER=AMIN1 (pEUYiPEUZ) 

PEULER=0. 15»PeULER 

IF (  I  1  .EQ.  I  IFF  (  1  >=FF (  1  ) 

IF (JTI  .EQ.  I  IFF  1  I  )=-FF  (1) 

IF (FF (  I  )  .GT.PEULER >G0  TO  7240 

IF  IND  1  «N0  ,P<  I  5*P (CR  )  i  NO  FURTHER  CALCULATIONS 
INDl=YES,P>15fcP (CR  I  ,  CHECK  BUCKLING  FOP  THIS  MEMBER 

IND I  I  J  I  )■•  N0« 

GO  TO  7000 

1  NDl  ( Jl  )  ■  •  YES  • 

T0TALY=0«0 

T0TALZ=0.0 

DEL=BLEN/NI NCR 


190 


162 

C 

163 

C 

164 

C 

165 

166 

167 

c 

168 

c 

169 

c 

1  70 

c 

171 

c 

172 

173 

174 

175 

176 

177 

!  78 

17? 

25 

180 

181 

35 

182 

183 

1  84 

5 

185 

C 

1  86 

C 

187 

C 

188 

C 

1  89 

C 

190 

C 

191 

1  92 

7 

1  93 

19H 

195 

1 

196 

197 

3 

198 

I  99 

2 

200 

201 

4 

202 

6 

203 

204 

C 

205 

c 

206 

c 

207 

c 

208 

209 

210 

21  1 

212 

213 

?1H 

215 

CHECK  FOR  YIELDING  BY  AXIAL  STRESS  ONLY 


PAXI  AL=FF (  1  » / A  X ( NM 1  ) 

IF(ABS(PAXIAL)»GT.YSTRS(NM1  )  ) 


GO  TO  7000 


COMPUTE  THE  MOMENTS  ALONG  A  BUCKLING  MEMBER  DUE  TO  MEMBER  FORCES 
RMY  AND  RMZ  ARE  ORIGINAL  MOMENTS,  URMY  AND  URMZ  ARE  UPDATED  MOMENTS 
INCLUDING  THE  AXIAL  FORCE  EFFECT 

DO  5  M=l  ,NINCR 

RM  =  M 

DL=  <  (RM-O.S)/NlNCR>»BLEN 

IF ( JT I  .EG.  1  )Go  TO  25 

RMY!M)=-FF(5J-DL»FFI3)-WZ(  I  )«UL*DL»0.5 

RMZ(M)=-FF(6UDL»FF<2>*WYII)»DL»DL»0.5 

GO  TO  35 

RMYIM)=-FF(5)*DL«FF<3)«-WZ(  I  )»DL»DL*0.5 

RMZ(M)*-FFI6»-DL»FF(2)-WY(  I  (•DL«DL«0.5 

URMY ( Jl  ,M  )  =RMY I M  ) 

URMZ ( Jl  ,M ) =RMZ  t  M  1 

TOTALY*TOTALY  +  ABS(RMY|M)  ) 

TOTALZ*TOTALZ  +  *BS(RMZ(M)  I 

IF  TOTALY  OR  TOTALZ  ARE  ZERO  THE  DEFLECTIONS  BY  THE  UNIT  LOAD 

METHOD  WOULD  BE  ZERO  REGARDLESS  OF  THE  VALUE  OF  P.   A  SMALL 

INITIAL  MOMENT  IS  APPLIED  TO  CHECK  FOR  BUCKLING  IF  NO  MOMENT  IS 
ACTING  DURING  THE  INITIAL  STEP 

I FITOTALY.LT. 0*1  )G0  TO  1 
CONT I NUE 

IF ( TOTALZ. LT.O*  1  )G0  TO  2 

GO  TO  6 

DO  3  K=l ,NINCR 

RMY ( K ) *5.0 

URMY I Jl  ,K  )  =5.0 

GO  TO  7 

DO  4  K* I  ,N1NCR 

RMZ ( K  )  *5.0 

URMZ ( Jl  ,K  )=5.0 

INDY-0 

INDZ*0 

COMPUTE  SMALL  MOMENT  CURVE  FOR  UNIT  LOAD  CALCULATIONS 
UM(K,J)   IS  THE  MOMENT  AT  J  DUE  TO  A  UNIT  LOAD  AT  K 

DO  10  K=l ,NI NcR 

RK  =  K 

DL"( (RK-0.5)/hINCRl»0LEN 

R  I  =  ( BLEN-DL ) /RLEN 

DO  10  J= I  ,N  1  NCR 

RJ*J 

UM(K,J)=R1»(RJ-0.5)»(BLEN/NINCK> 

IFIJ.LT.KJGO  TO  10 
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216 

217 

218 

10 

219 

220 

221 

222 

12 

223 

C 

22H 

C 

225 

C 

226 

C 

227 

228 

22? 

230 

1  3 

231 

232 

1  4 

233 

c 

234 

c 

235 

c 

236 

c 

237 

c 

238 

239 

240 

241 

212 

243 

244 

2H5 

246 

247 

218 

2H9 

250 

251 

c 

252 

c 

253 

c 

251 

c 

255 

1  10 

256 

257 

1  12 

258 

100 

259 

7000 

26C 

77UO 

261 

7702 

262 

7802 

263 

261 

XX=R J-RK 

UM(K,J)=UM(K,jl-XX»(BLEN/NINCH> 

CONT I NUE 

DO  100  I  =  1  ,NI TER 

DO  1  2  LJ=1  ,NINCR 

YY(LJI=0.0 

ZZILJ  )»=0.0 

YY  AND  ZZ  ARE  DEFLECTIONS 

LOOPS  13  AND  ll  COMPUTE  THE  DEFLECTION  CURVE  BY  THE  UNIT  LOAD  METHOD 

DO  II  J=l  ,NINCR 

DO  13  K=l  ,NINCR 

YY(J)*YY(J)+UM<J,K>»URMZ(J1,K>«DEL/(E»EIZ> 

ZZ(J)=ZZ(J)+UmIJ|K)*URMY(JI,KI«DEL/(E»E1Y) 

URMYUI  ,J)=RMY(J)+FF(  1  ) »ZZ( J) 

URMZIJI  ,J|»RMZ(JI*FFI  1  )»YY  < JI 

YSTORE  AND  ZSTORE  ARE  DEFLECTIONS  OF  THE  MIDPOINT  OF  THE  SIXTH 
INCREMENT.    YD  AND  ZD  ARE  THE  DIFFERENCES  IN  TWO  SUCCESSIVE  VALUES 
YD  AND  ZD  ARE  USED  TO  CHECK  FOR  D I VER GENC E /C ON VERGENCE 


YSTORE  (  I  )=YY(  (,  I 
ZSTOREt  I  >*ZZU> 
YD(  I  )=YSTORE (  I  I 
ZD( I  )=ZST0RE1  I  I 
IF<  I .EQ.  1  )G0  TO 


100 

YD(  I  )=ABS(YSToHE(  1  1  l-ABS(YSTORE(  I 
ZD(  I  >=ABS(ZSTo«E(  I  )  )-ABS(ZSTORE(  1 
IF(YD(I).GT.YD<I-1>)INDY=INDY+I 
IF(ZD(  I  ).GT.ZD«  I-l  1  I  INDZ  =  INDZ+1 
IF  t  INDY.GT.9  )  qO     TO  110 
!F< INDZ.GT.9 IgO  TO  112 
I ND2 ( JI  )  =  •  NO    • 
GO  TO  100 

IND2«N0,  MEMBEK  DID  NOT  BUCKLE 
IND2»YESi  MEMBER  DID  BUCKLE 


,Z» 


I  )  ) 
1  )  ) 


IND2 (JI  )  =  •  YE5t 

GO  TO  100 

IND2( JI  )=»YES,Y  » 

CONT INUE 

CONT INUE 

FORMATIIH  , 'INPUT 

FORMAT! 4151 

FORMAT  I 8F  10.2  ) 

RETURN 

END 


ERROR  IN  BUCKLING  MEMBER'iI3> 
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i 

2 
3 
q 
s 

6 
7 
8 
9 
10 
1  1 
1  2 
I  3 
14 
I  5 
1  6 
I  7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
HI 
42 
13 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


SUBROUTINE  PLoTS(IADV,NJ,MK,NUMPL,Y,Z,X,JJ,JK,THETA,PHI,IHED,ANgL) 

DIMENSION  N(  lo  >  ,JJ<  1  )  t-JM  1  1  .  I  HEO  (  1  >  ,  ANGL (  I  ) 

DIMENSION  X(l).Y(l),Z(l),IC0N|500,2) 

COMMON/PLOT/LPl  (  150)  iLP2(  15  0)  ,LP3(  150)  ,LP4(  150) 
THIS  ROUTINE  SETS  OP  THL  INPUT  FOR  THE  ROUTINE  WHICH  DOES  THE  CLOTTING. 
THE  KIND  OF  PLOT  IS  DETERMINED  FROM  THE  INPUT  AND  MAT  BE  LlTHER  ALL  BEAM, 
ALL  PLATES,  FiOTH  BEAM  AND  PLATES  -  LOADED  OK  UNLOADED.    UNIQUE  CONNECTIONS 
ARE  DEVELOPED  FOR  THE  PLATES  AND  STORED  IN  THE  ICON  ARRAY. 

THE  CALLING  ARGUMENTS  TO  THIS  ROUTINE  ARE  AS  FOLLOWS: 

IADV  -  FRAME  ADVANCE   0=  ADVANCE,    1=  HOLD  FRAME 

NJ  -  NUMBER  OF  JOINTS'.  DIMLN5I0N  OF  X  t  Y  •  Z  • 

MK  -  f  J  UMBER  OF  BEAM  ELEMENTS. 

NUMPL  -  NUMBER  OF  PLATES. 

X,Y,Z  -  CO-ORDlNATES  OF  THE  JOINTS. 

JJ.JK  -  BEAM  MODES. 

THETA  -  THE  ANGLE  ABOUT  THE  HORIZONTAL  PLANE.    THIS  IS  THE  POSITION 

OF  THE  VIEWER  RELATIVE  TO  THE  PLOT.    IN  A  RIGHT-HANDED  AXIS  SYSTEM,  THETA 

OF  0  DETERMINES  A  V  I E W  DOWN  THE  -Y  AXIS.    THETA  OF  90  DEGREES  IS  A  VIEW 

DOWN  THE  +X  AXIS.    THETA  OF  180  DEGREES  IS  A  VIEW  DOWN  TNE  ♦ Y  AXIS. 

TCI     MOST  APPLICATIONS  THETA  E.JUAL  120  DEGREES  IS  RECOMEnDED.    THIS 

GIVES  A  VIEW  ONTO  THE  X-Y  QUADRANT. 

PHI  -  IS  THE  ELEVATION  ANGLE  WITH  THE  Z  AXIS.  THIS  ANGLE  MAY  RANGE 
FROM  -90  DEGREES  TO  +90  DEGREES.  PHI  GREATER  THAN  0  IMPLIES  A  VIEW 
FROM  THE  TOP  oF  THE  PLOT.  PHI  LESS  THAN  0  GIVES  AN  UNDERSIDE  VIEW. 
1  fi  MOST  INSTANCES  PHI  EQUAL  90  DEGREES  IS  RECOMMENDED. 

EVERY  ATTEMPT  HAS  BEEN  MADE  TO  KEEP  THIS  PLOT  PACKAGE  UNIVERSAL  IN  ITS 
USE  OF  PLOTTERS.    ONLY  FUNDAMEN1AL  ROUTINES  OF  THE  PLOTTING  SYSTEM  HAVE 
BEEN  USED  AND  ARE  DETAILED  AT  THEIR  CALL  5EUURNCE  AS  TO  DISCRETION  SO 
THAT  THESE  CALLS  MAY  BE  EASILY  REPLACED  WITH  CALLS  PERTINENT  TO 
ANOTHER  SYSTEM. 

MANY  OF  THE  PLOT  SYSTEM  ROUTINES  WILL  BE  FULLY  COMPATIBLE  WITH  OTHER 
MACHINES  AS  EY  STAND.    THE  ONLY  ATTENTION  NECESSARY  FOR  CONVERSION  IS  To  TH 
THE  FOLLOWING  CAlLS. 


SETUPV 
USUALLY 


■  THE  SET  UP  ROUTINE  TO  ACTIVATE  PLOTTING. 
UNIQUE  TO  EACH  COMPUTER  INSTALLATION. 


THIS  ROUTINE   IS 


FRAMEV  -  FRAME  ADVANCE  ROUTINE 
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5M 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6H 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7H 
75 
76 
77 
78 
79 
80 
81 
82 
83 
04 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9M 
95 
96 
97 
98 
99 
100 
101 
I  02 
103 
10H 
105 
106 
107 


PLOTCV  -  ROUTINE  WHICH  PLOTS  A  CHARACTER. 

L1NEUV  -  ROUTINE  WHICH  DRAWS  A  LINE  BETWEEN  TWO  POINTS. 

MOOEV  -  ROUTINE  WHICH  CONVERTS  FROM  USER  CO-ORDINATES  To  RASTER 
CO-ORD I  NATES. 

TYPEV  -  ROUTINE  WHICH  TYPES  A  LINE  OF  PRINTED  INFORMATION  ON  THE  PLOT. 

FINSHV  -  ROUTINE  WHICH  DENOTES  THE  PLOT  FILE  IS  FINISHEO.  USUALLY  UNIyUE. 
IS  LOCATED  IN  THE  MAIN  PROGRAM  WHICH  CALL  THIS  ROUTINE. 

THE  ARGUEMENT5  ARE  DESCRIBED  IN  DETAIL  AT  THE  CALLS. 

NPTS=NJ 

I BEAMS=0 
THE  FOLLOWING  F'OIJN  CARDS  ARE  THE  C0RNER5  OF  THE  GREATEST  ALLOWABLE  PLOT 
AREA.    IN  PRACTICE  MOST  PLOTS  WILL  NEVER  REACH  THESE  LIMITS. 

TO  CONVERT  TO  ANOTHER  PLOTTING  SYSTEM  -  REPLACE  THESE  RASTER  COUNTS  WITH 
LIMITS  SUITABLE  TO  THE  NEW  SYSTEM. 
JCON=0 
IL= 100 
I R=800 
JB=1 30 
JT=950 
15      CONTINUE 

I F ( MK .EU.O  1  GO  TO  28 

THE  PLOT  HAS  BEAMS. 

NCON=MK 

I  B  E  A  M  S  =  1 

1  F (  IBEAMS.EU.O  )  GO  TO  28 

DO  20  1=1 iNCoN 

ICONI  I  ,  1  )=JJ(  I  ) 

ICON!  I  ,2)=JK|  I  ) 
20     CONTINUE 
29      JCON=NCON 
28      CONTINUE 

IF (NUMPL.EW.O I  GO  TO  500 


THE  PLOT  HAS  PLATES. 

NCON  NON-ZERO  GIVES  BOTH  BEAMS  AND  PLATES. 

I.P1...LPH  IN  COMMON  BLOCK  ARE  THE  PLATE  NODES. 

THE  FOLLOWINf  CODE.  GENERATES  THE  UNIQUE  CONNECTION  FOR  PLATES. 

30      0  0  60  I N = 1  , U U  M P  L 
N (  I  )  =LP  I  (  I N  ) 
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I  08 

109 

I  10 

I  1  1 

!  12 

I  13 

1  I  H 

I  IB 

1  16 

1  17 

i  ie 
1 1? 
i  ?o 

121 
122 

I  23 

I2H 

125 

126 

127 

126 

12? 

I  30 

I  31 

I  32 

1  33 

1  34 

135 

136 

137 

138 

1  39 

1  HO 

I  HI 

I  H2 

1  H3 

I  HH 

I  H5 

1H6 

IH7 

I  H8 

I  H9 

150 

151 

152 

153 

I5H 

155 

156 

157 

158 

159 

I  60 

161 


N(2  )=LP2(  IN ) 

N( 3  )=LP3(  IN ) 
N  (  H  I  =  LPH (IN) 
35      LP=3 

IFIN(H).EQ.O)  LP =2 

0  0  5  0  K  =  I  ,  L  P 
M=JCON+K 
1C0N(M  ,  I  )=N(K  ) 
IC0N(M,2)=N(K+1  I 
M  M  =  M  -  I 

1  F  (  M  .  L  T  .  3  )  GO  TO  50 
DO  HO  IMi|,HH 

I  F (ICON t  I  M  ,2  )  «NE •  ICON (M  ,2  )  I  GO  TO  HO 

I F I  ICON (1M,  1  )  .NE. ICON! M,  1  M  GO  TO  HO 

JCON=JCON- 1 

GO  TO  50 

CONT  |NUF. 

DO  HI   IMxl.HM 

IF (  I  CON<  IM  ,2  )  .NE • ICON  I M  ,  I  1  )  GO  TO  HI 

IF (  ICON!  |M  ,  I  )  .NE  .  ICON ( M  ,  2  )  I  GO  TO  HI 

JC0N=JC0N-1 

GO  TO  50 

CONT  INUE 

CONT INUE 

LP=LP*  1 

M= JCON+LP 

IC0N(M,|(=N(1> 

IC0N(M,2  )=N(LP  > 

UO  51   IM=1,MM 

IF (  ICON!  |M,2  )  «NE •  ICONlM  ,2  )  (GO  TO  51 

IF  1  ICON (  I M ,  1  |  .NE •  ICON ( M  ,  1  I  )  GO  TO  51 

JC0N= JCON- 1 

GO  TO  5  3 

CONT I NUE 

00  52  I M  = I  , M  H 

if(ic0n(im,2).ne.ic0n(m,1m  (jo  to  52 
if (  i  con (  im  ,  i  )  .ne . ic0n1 m  ,2  i  )  go  to  52 

jconSjcon- 1 

GO  TO  53 
CONT INUE 
JCON=JCON*LP 
CONT I NUE 
NC0N=JC0N 
CONT INUE 


HO 


HI 
50 


51 


52 

53 

60 

H50 
500 
C 
C 
C 
C 
C 

c 

C 

c 


SETUPV  ARGUMENTS 
•COPIES' , | 


DE5CRIPT ION : 
•  ONE  COPY  Or  PLOT. 

-  0  COPIES  MAY  BE  USED  FOR  CHECKOUT. 
■  2...N  MAY  BE  USED  FOR  MULTIPLE  COPIES, 


•MUST  GOULD* 


IF  (  IRH, 
I  ri  H  =  1 


USE  GOULD  PLOTTER. 
-  'MUSI  CALCOMP'  USES  THE  CALCOMP  PLOTTER' 
EiJ.OlcAt-L  St  TUPV  (  'COP  ILS*  i  1  ,  'MUST  GOULD') 
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162 

16  3 

1  6H 

C 

165 

C 

1  66 

C 

167 

C 

1  68 

C 

169 

C 

1  70 

C 

1  71 

C 

1  72 

c 

1  73 

c 

I7H 

c 

175 

1  76 

177 

178 

650     CALL  PLOTI T(NPTS,X,  Y  ,Z  ,THETa  iPHI  i  1C0N.NC0N,  1 ADV  ) 
750    CONTINUE 

TYPEV  ARGUMENTS  DESCRIPTION! 

•IHED'  -  ARRAY  OF  INFORMATION  TO  BE  PRINTED. 

80  -  NUMBER  OF  CHARACTERS  IN  IHED 

MHO,  ICO  -  ARE  RASTER  CO-ORDINATES  OF  FIRST  CHARACTER  TO  APPEAR  AT  CENTER. 

•CENTER'  -  IMPLIES  POSITIONING  BEGINS  AT  CENTER  OF  CHARACTER  STRING 
I  t J  IHED. 

CALL  TYPEVIIHF.D, 80, H50.100, 'CENTER') 
CALL  TYPEV(ANGL,2'(,  450,  75, 'CENTER') 
RETURN 
END 
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i 

2 
3 
M 
5 
6 
7 
8 
9 
10 
I  I 
12 
1  3 
M 
15 
16 
I  7 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3M 
35 
36 
37 
38 
39 
MO 
Ml 
H2 
H3 
MM 
M5 
M6 
M7 
M8 
M9 
50 
51 
52 
53 


SUBROUTINE  PLOTITI1MAX,X,Y,Z,THETA,PHI,ICON,NCON,ILOAD> 
DIMENSION  X(  1  |  ,YI I  )  »Z(  I  I  , I  CON  I  500 » 2 1 
DIMENSION  PY (  100 )  ,PZ (  100  I 

THE  FOLLOWING  CODE  RESOLVES  THE  THREE-DIMENSIONAL  CO-ORdINaTES  INTO  THE 
TWO-DIMENSIONAL  PLACE  AS  VIEWED  FROM  THE  DESIRED  DIRECTION. 
1MAX  -  NUMBER  OF  JOINTS  OR  POINTS  IN  X,Y,Z. 

THETA  -  AZIMUTH  ANGLE  -  PREVIOUSLY  DESCRIBED. 

PHI  -  ELEVATION  ANGLE  -  PREVIOUSLY  DESCRIBED. 

ICON  -  ARRAY  oP  UNIQUE  CONNECTIONS. 

NCON  -  NUMBER  OF  UNIQUE  CONNECTIONS  TO  BE  MADE  BETWEEN  NODES. 

ILOAD  -  FRAME  ADVANCE  FLAG.    GENERALLY  USED  FOR  SUPERIMPOSED  PLOT  FOR 
LOADED  ELEMENTS. 


D«5 
IF( 
IF  ( 
SET  UP 
IL« 
IR  = 
JB* 
JT  = 
XMA 
XMI 
YMA 
YMI 
ZMA 
ZMI 
DO 
IF  ( 
IF  ( 
IF  ( 
IF  I 
IF  ( 
IF  ( 
CON 
XBA 
YBA 
ZBA 
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.0 
ILO 
ILO 
PL 
100 
800 
130 
950 
X  = 
N  = 

X   tr 

N  = 

X  * 

N  * 

316 

X  ( 

X  ( 

Y( 

Y( 

ZI 

Z(  I 

TIN 

R*. 

R»  . 

R*. 


AD.NE. 1 )  CALL  FRAMEV 

AD»EQ. 1 )  60  TO  353 

OT  AREA  AND  MARGIN  LIMITS 


-I  000.0 
1000.0 

-  1000.0 
1000.0 

-  I  000.0 
1000.0 

1  =  1 t  ImaX 

I  )  .GT.   XMAX  I   XMAX  «  X  (  I  ) 

I  )  «LT.  XMJN)  XM1N  =  XII) 

I  )  .GT  .   YMAX  )   YMAX  =  Y  I  I  ) 

Il.LT.  YMIN)  YMIN«Y(I) 

I)   .LT.  ZM1N)  ZMIN  =  Z(I) 

I   .GT .  ZMAX  I  ZMAX  =  Z  I  1  ) 

UE 

5«(XMIM+XMAX) 

5*  I  YMIN  +  YMAX ) 

5»  I  ZMAX  +  ZMIN ) 


DEVELOPE  THE  ROTATIONAL  ANGLES  FOR  THE  DESIRED  VIEW, 

P I =3. 1M159265 
THR=THETA»PI / 180. 
PHR=PHl «P I / I 80« 
C  TH  =  COS ( THR ) 
STH=5|N(THR) 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
7  3 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


SPH'SIN(PHR) 
CPH=C05(PHR I 
B»-CTH«CPH 
A»STH«CPH 
C*SPH 

ORAT=D» ( XMAX-xMI N  I 
X  V  »  X  M  I  N  +  D  R  A  T  •  A 
Y  V  «  Y  M  I  N  +  0  R  A  T  •  o 

IF  (A.GT.O)  XvEXMAX+DRAT» A 
IF  (O.GT.OI  YvETMAX*DRAT »B 
ZV"ZBAR+DRAT»C 

CALL  PLAN1(XBaR.YBAR,ZV, XV, YV.ZV,  1.0) 
CALL  PLANE<XM|N,YMIN,ZMAX,DUM,XPMAX,YPMAX) 
C 

XPMINxXPMAX 
YPMIN«YPMAX 
Z.T  =  ZHAX 
33   CONTINUE 

DO  34  1  =  1,4 
IF (  I .EQ.  I  (CALL 
IF ( I .EQ.2 (CALL 
IF (  I  .EQ.3  1CALL 
IF( I .EQ.IICALL 
XPM IN  =  M IN( XPM IN  ,  XPT  ) 
XPHAXxMAX ( XPMftX  ,  XPT  ) 
YPMI N-MIN (  YPMJN  ,  YPT  ) 
YPMAX  =  HAX ( YPMAX  ,  YPT  ) 
3H  CONTINUE 

35  CONTINUE 

IF( ZT.LE.ZMIN  )  Go  TO  352 
ZT  =  ZM|N 
GO  TO  33 
352  CONTINUE 

C     CALCULATE  SCALE  FACTOR 
IMID=(  I  L ♦  I  R I /2 
J  M  I  D  *  (  J  B  ♦  J  T  (  /  2 
XMID«=(XPMAX  +  XPMIN)».5 
YMlD*IYPMlN*YPMAX)».5 
XRAT=(XPMAX-XPMlN)/< 1R-IL) 
YRAT=(YPMaX-YPMIN)»CPH/(JT-JB) 
DELTA=HAX(XRAT,YRAT)»1000 


PLANE ( XM IN, YM1N,ZT,DUM, XPT, YPT » 
PLANE(XMIN,YMAX,ZT,DUM,XPT,YPT1 
PLANLIXHAX,YMIN,ZT,OUM,XPT,YPT) 
PLANE(XMAX,YMAX,ZT,DUM,XPT,YPT) 


THIS  ROUTINE  RELATES  THE  USER  CO-ORDINATES  WITH  THE  RASTER  CO-ORDINATES 
BY  EQUATING  THE  FOUR  CORNERS  FOLLOWING  'EQUATE',  WITH  THE  ARGUEMENTS 
FOLLOWING  'WITH'. 

CALL  MODE  V  <  'EQUATE'  ,XM  ID-DELTA,  XMIO  +  DELTA, 

•  YMID-DELTA/CPH , YM1D+DELTA/CPH , 

•  'WITH',IMID-1000,IM|D*IOOO,JMID-1000,JMID*IOOO) 
C 

353      CONTINUE 
C 

C       THE  ROUTINE  -  PLANE 
C   RESOLVES  THE  POINT  |N  T HKEE -D I  MENS  I UNS  DESCRIBED  BY  X.Y.Z  INTO 
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108 
109 
I  10 
1  I  1 
I  12 
I  1  3 
I  14 

1  IB 
I  16 
1  17 
1  18 
1  IV 
120 
121 
122 
123 
124 
125 
126 
1  27 
128 
12? 
130 
I  31 
132 
133 
I  34 
I3S 
136 
137 
138 
I  3? 
I  HO 
Ml 
I  42 
143 
1  44 
145 
I  4  6 
147 

ne 

1  4  7 
150 
151 
152 
153 
154 
155 
156 
157 
158 
15"? 
160 
161 


C   THE  PLANE  PY,  PZ. 

C 

C  PLOTCV  -  1  DENOTES  ONE  CHARACTER  TO  BE  PLOTTED  AT  UC  PMl),  PZ«I), 

C  AND  THAT  CHARACTER  15  TO  BE  A  '0«. 

C 

C  LINEUV  -  CONNECTS  THE  POINT  DESCRIBED  BY  THE  FIRST  TWO  ARGUMENTS  TO 

C  THE  POINT  DESCRIBED  BY  THE  LAST  TWO  ARGUEMENTS* 

DO  36  I  =  1  ,  1MAX 

CALL  PLANE (X(|l,Yl|)tZ(lliDUM,PY(II,PZ(I)l 
IF!  1LOAD.EQ.0)  CALL  PLOT C V  I  1  , P Y (  1  )  , PZ 1  I  I  ,  •  0  •  I 
IFULOAD.EQt  I  |  CALL  PLOT  C  V  1  1  ,  P  Y  (  I  )  ,  PZ  (  |  1  ,  •  •  •  ) 
36  CONTINUE 

DO  37  I »1 ,NCON 
IP1  =  ICON! Ill) 
IP2  *     ICON!  I  i2 > 

CALL  LlNEUV(PYi|Pl)iPZ<lPI)iPYllP2),PZ(IP2)) 
37      CONTINUE 

SUBROUTINE  PLANE!  X , Y ,Z  ,  XP  ,  YP  ,  ZP  1 
REAL  A(3,4),XA<3)|XB(3),LAHB,ZETA,LAMBSQ 
C 

XA I  1  ) =X 

XA( 2 )»Y 

XA(3I=Z 

DO  22     1=1,3 

XB I  I  )«A(  I  ,4  ) 

DO  21  J=l  ,3 

21  XBI I >«XB< I »+A( I , J) »XA( J) 

22  CONTINUE 
XP«XB  (  I  ) 

YP  =  XO(  2  I  /XP 

ZP  =  XB( 3  )/XP 

RETURN 
C 

ENTRY     PLANl(Xm,X2Q,X3Q,XlV,X2V,X3ViD) 

ALPH=X 1 V-X IQ 

BETA-X2V-X2Q 

ZETA-X3V-X3Q 

LAMBSU=ALPH«»2+BETA»«2 

GAMSQ=LAMB5Q+ZETA»»2 

L  AMB*SQRT ( L AHBSQ ) 

GAM  =  SrjRTlGAMSQ) 

CLAMB/GAM 

S  *  Z  ETA/GAM 

C 1 =ALPH/L AHB 

SI =BETA/LAMB 

IF     (  SI  ••2  +  C  1  ••2.c,T  .0.5  )     GO     TO     15 
Sl«-1  .0 
C  I  «0 
15  A (  1  ,  I  )  =-C»C  1 

A  I  1  ,2)*-C*SI 

A( | ,3)=-S 

A(  1  ,4)=C»Cl«Xl<J*C»5l»X2Q  +  S»X3t*  +  GAM 

A ( 2 ,  I  ) =-S  1  «D 


ED  -58 
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162  A  (  2,2)"=  ci*D 

I  A  3  A ( 2 |3|>  0 

I  A  M  A  (  2,M  )  =  (  S  I  »X  1Q-C  1»X2(J  )  »0 

1  65  A(  3, I  I =-S»C I »D 
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